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ASP 是 美国 微软 公司 开发 的 代替 CG 脚本 程序 的 应 用 程序 , 它 可 以 与 数据 库 和 其 他 程序 
进行 交互 ， 是 一 种 既 简 单 又 方便 的 编程 工具 。ASP 的 主要 特性 是 能 够 将 脚本 HTML、 组 件 和 
强大 的 Web 数据 库 访问 功能 结合 在 一 起 ， 形 成 一 个 能 在 服务 器 上 运行 的 应 用 程序 ， 并 把 按 
用 户 的 要 求 专门 制作 的 HTML 页 面 发 送 给 客户 端 浏览 器 显示 。 

ASP 可 以 用 来 创建 与 运行 动态 网 页 和 Web 应 用 程序 。ASP 网 页 可 以 包含 HIML 标记 、 
普通 文本 、 脚 本 命令 以 及 COM 组 件 等 内 容 。 利 用 ASP 不 仅 可 以 向 网 页 中 添加 交互 式 内 容 ， 
例如 在 线 表 单 ， 而 且 还 能 够 创建 使 用 HTML 网 页 作为 用 户 界面 的 Web 应 用 程序 。 

ASP 属于 ActiveX 技术 中 的 服务 器 端 技术 ， 与 通常 在 客户 端 实现 动态 页 面 的 技术 (如 
Java、VBScript 等 ) 不 同 ，ASP 中 的 命令 和 脚本 都 是 在 服务 器 端 解 释 执行 ， 因 而 网 站 设计 者 
不 必 担 心 浏览 器 是 否 能 执行 脚本 。 同 时 ， 由 于 只 是 将 HTML 页 面 发 送 到 浏览 器 执行 ， 在 浏 
览 器 中 看 不 到 ASP 程序 源 代 码 ， 因 此 可 以 防止 程序 代码 被 窃取 。 另 外 ，ASP 提供 了 简单 、 
方便 的 数据 库 访问 方法 ， 可 以 使 开发 基于 数据 库 驱 动 的 Web 应 用 程序 更 加 容易 。 

本 书 针对 学 习 ASP 和 网 站 开发 的 初中 级 用 户 而 设计 ， 采 用 由 浅 入 深 、 循序渐进 的 讲述 
方法 , 在 理论 与 实例 部 分 安排 上 充分 考虑 到 初学 者 的 实际 需求 ,通过 大 量 的 实用 操作 指导 和 
有 代表 性 的 实例 ， 可 以 使 读者 直观 、 迅 速 地 了 解 ASP 的 主要 功能 和 动态 网 站 的 制作 方法 。 
另外 ， 读 者 还 可 以 通过 各 章 课 后 习题 来 巩固 书 中 所 学 的 知识 。 

本 书 是 集体 智慧 的 结晶 , 除 封面 署名 作者 以 外 , 参与 本 书 编写 和 制作 的 人 员 还 有 王 永 接 、 
尹 辉 、 程 风 娟 、 赵 新 娟 、 杜 静 芬 、 陈 笑 、 孔 祥 亮 等 。 尽管 我 们 在 编写 本 书 时 已 尽 了 最 大 努力 ， 
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第 1 章 ” ASP 的 基础 知识 


ASP 的 全 称 是 Active Server Pages( 动 态 服务 器 页 面 ), 它 是 一 种 服务 器 端 脚本 执行 环境 ， 
网 页 设计 者 通过 该 环境 可 以 创建 和 运行 动态 、 交 互 的 Web 应 用 程序 。 ASP 可 以 结合 HTML 
页 、 脚 本 命令 和 ActiveX 组 件 ， 共 同 创建 动态 的 Web 页 和 基于 Web 服务 器 的 功能 强大 的 
应 用 程序 。 

本 章 作为 全 书 的 开端 ， 将 介绍 ASP 的 基础 知识 ， 包 括 ASP 的 概念 、 技 术 特点 、 工 作 
原理 、 内 置 对 象 以 及 架设 ASP 网 站 服务 器 ， 并 以 其 为 基础 编写 、 运 行 ASP 程序 的 方法 。 

教学 目标 

通过 对 本 章 的 学 习 , 读者 应 了 解 和 掌握 动态 网 页 与 ASP 的 基本 知识 , 能 够 安装 和 配置 
IIS 服务 以 建立 ASP 的 工作 环境 ， 并 对 ASP 标记 有 一 个 初步 的 认识 。 


教学 重点 与 难点 

e 动态 网 页 与 静态 网 页 的 区 别 
e ASP 的 技术 特点 

e ASP 的 运行 环境 

e ASP 的 内 建 对 象 

e 构建 ASP 程序 开发 环境 


1.1 静态 网 页 与 动态 网 页 的 区 别 


网 页 程序 是 否 在 服务 器 端 运行 ， 是 区 分 静态 网 页 与 动态 网 页 的 重要 标志 ， 在 服务 器 端 
运行 的 网 页 (包括 程序 、 网 页 、 组 件 等 )， 属 于 动态 网 页 (动态 网 页 会 随 不 同 用 户 、 不 同时 间 ， 
返回 不 同 的 网 页 )。 而 运行 于 客户 端的 网 页 程序 (包括 程序 、 网 页 、 插 件 、 组 件 等 )， 则 属于 
静态 网 页 。 静 态 网 页 与 动态 网 页 各 有 特点 。 


1.1.1 静态 网 页 


静态 Ee 不 包含 程序 代码 的 网 页 ， 它 不 会 在 服务 器 端 执行 。 静 态 网 页 内 容 经 常 以 
HTML 语言 编写 , 在 服务 器 端 以 .htm 或 .html 文件 格式 储存 。 对 于 静态 网 页 ， 服 务 器 不 执行 
全 条 程序 训 扎 和 HTML 页 面 文 件 传 给 客户 端的 浏览 器 直接 进行 解读 工作 , 所 以 网 页 的 内 容 不 
会 因为 执行 程序 而 出 现 不 同 的 内 容 。 
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1.1.2 动态 网 页 


动态 网 页 是 指 网 页 内 含有 程序 代码 ， 并 会 被 服务 器 执行 的 网 页 。 用 户 浏览 动态 网 页 须 
由 服务 器 先 执行 网 页 中 的 程序 ， 再 将 执行 完 的 结果 传送 到 用 户 浏览 器 中 。 动 态 网 页 和 静态 
网 页 的 区 别 在 于 ， 动 态 网 页 会 在 服务 器 执行 一 些 程序 。 由 于 执行 程序 时 的 条 件 不 同 ， 所 以 
执行 的 结果 也 可 能 会 有 所 不 同 , 最 终 用 户 所 看 到 的 网 页 内 容 也 将 不 同 , 所 以 称 为 动态 网 页 。 

使 用 动态 网 页 可 以 达到 下 面 一 些 效 果 : 

。 在 网 页 中 添加 一 个 滚动 显示 的 广告 栏 。 

。 从 HTML 的 表单 中 接受 信息 并 且 存 到 数据 库 中 。 

。 根据 不 同 访问 者 显示 不 同 内 容 ， 创 建 个 性 化 主页 。 

。 在 主页 中 添加 计数 器 。 

e 根据 用 户 浏览 器 的 版 本 、 类 型 和 能 力 显示 不 同 档次 的 内 容 。 

e 跟踪 用 户 网 站 上 的 活动 信息 并 且 存 入 日 志文 件 。 


注意 : 

动态 网 页 开发 的 常见 技术 有 ASP、PHP、JSP、ASPNET、CGI 等 ， 它 们 各 有 所 长 ， 但 
都 需要 把 脚本 语言 谈 入 到 HTML 文档 中 。 其 中 , ASP 学 习 简单 、 使 用 方便 ; PHP 软件 免费 ， 
运行 成 本 低 ; JSP 支持 多 平台 ， 转 换 方 便 。 


1.2 ASP 概述 


ASP 内 含 于 IIS(Internet Information ServeD 中 ， 是 一 种 Web 服务 器 端的 开发 环境 。 通 
过 在 普通 HTML 页 面 中 嵌入 的 ASP 脚本 语言 ， 可 以 产生 和 执行 动态 的 、 交 互 的 、 高 性 能 
的 Web 应 用 程序 。ASP 采用 脚本 语言 VBScript(JScripb 作 为 自己 的 开发 语言 。 


1.2.1 ASP 的 技术 特点 


ASP 主要 为 HTML 编写 人 员 提供 了 在 服务 器 端 运行 脚本 的 环境 ， 使 HTML 编写 人 员 
可 以 利用 VBScript 和 JScript 或 其 他 第 三 方 脚本 语言 来 创建 ASP， 实 现 有 动态 内 容 的 网 页 ， 
如 计数 器 等 。ASP 有 以 下 特点 : 

e 用 户 端 只 要 使 用 可 执行 HTML 代码 的 浏览 器 ， 即 可 浏览 ASP 所 设计 的 网 页 内 容 ， 
ASP 程序 的 运行 与 浏览 器 无 关 。 
ASP 脚本 在 服务 器 端 执行 ， 传 到 用 户 浏览 器 的 只 是 ASP 的 执行 结果 所 生成 的 常规 
HTML 代码 ， 这 样 可 以 保证 设计 者 编写 的 程序 代码 不 会 被 用 户 盗 取 。 
e ASP 使 用 VBScript 等 简单 的 脚本 语言 , 设计 者 可 以 快速 完成 网 站 应 用 程序 的 编写 。 
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ASP 运行 在 服务 器 端 ， 使 用 ASP 建立 的 网 站 ， 设 计 者 无 须 担 心 用 户 在 浏览 器 上 通 
过 Internet 访问 网 站 时 ， 会 出 现 浏览 器 不 支持 ASP 所 使 用 的 编程 语言 的 情况 。 
e 无 须 编译 ， 便 可 在 服务 器 端 直接 执行 。 
e 使 用 普通 的 文本 编辑 器 (例如 Windows 记事 本 )， 即 可 进行 ASP 程序 的 设计 。 
e ASP 程序 中 包含 许多 基本 组 件 和 常用 组 件 (本 书后 面 的 章节 将 陆续 介绍 )， 设 计 者 只 
要 在 服务 器 端 安装 需要 的 组 件 ， 就 可 以 通过 访问 组 件 ， 快 速 、 简 易 地 建立 自己 的 
ASP 动态 网 站 ， 并 且 能 够 使 用 这 些 组 件 方便 地 完成 网 站 上 的 某 些 特殊 应 用 。 
总 之 ，ASP 是 在 服务 器 端 开 发 Web 应 用 的 一 种 简单 、 方 便 的 编程 工具 ， 它 对 标准 的 
HTML 文件 进行 了 拓展 , 增加 了 一 些 附 加 特征 , 可 以 使 网 页 在 布局 和 功能 方面 都 更 加 丰富 。 


1.2.2 ASP 的 工作 流程 


当 浏览 器 请 求 打 开 一 个 ASP 页 面 , Web 服务 器 接收 到 请 求 后 ,将 按 以 下 流程 展开 工作 (如 
图 1-1 所 示 )。 


ActiveX 脚本 引擎 


数据 库 ASP 文件 
图 1-1 ASP 的 工作 流程 


(1) 服务 器 读 取 ASP 文件 的 内 容 ， 判 断 是 否 有 ASP 服务 器 端的 代码 需要 执行 。 判断 的 
方法 有 两 种 : 一 种 是 查看 ASP 代码 的 特有 <% %> 脚 本 标记 ; 一 种 是 查看 ASP 代码 是 否 被 
指定 要 运行 在 服务 器 端 ， 如 <script runat="server">。 

(2) 假如 有 要 运行 的 ASP 代码 ， 服 务 器 会 将 这 些 代码 挑 出 来 逐 行进 行 解释 。 假 如 没有 
要 运行 的 ASP 代码 ， 它 仅 是 简单 地 通知 IIS 这 种 情况 。 

(3) 服务 器 在 解释 运行 脚本 后 ， 将 脚本 的 执行 结果 与 静态 HTML 代码 进行 合并 ， 形 成 
一 个 最 终 的 网 页 页 面 。 

(4) 服务 器 把 网 页 发 送 给 客户 端 浏览 器 。 

于 脚本 在 服务 器 端 而 不 是 在 客户 端 运行 ， 传 送 到 浏览 器 上 的 Web 页 是 在 Web 服务 
器 端 生成 的 ， 所 以 不 必 担 心 浏览 器 能 否 处 理 脚 本 。 由 于 只 有 脚本 的 结果 返回 到 浏览 器 ， 所 


4。 ASP 动态 网 站 开发 基础 教程 (第 4 版 ) 
以 服务 器 端 脚本 不 易 复 制 ， 用 户 看 不 到 正在 浏览 的 页 面 脚本 命令 。 
1.2.3 ASP 的 工作 原理 


通过 客户 端 浏览 器 请 求 ASP 程序 的 过 程 和 访问 普通 HTML 页 面 的 过 程 不 同 ， 用 户 可 
以 清楚 地 了 解 ASP 的 工作 原理 。 

对 HTML 页 面 的 访问 一 般 用 户 都 比较 了 解 。 首 先是 将 HTML 文件 的 Internet 地 址 输入 
至 客户 端 浏览 器 地 址 栏 ， 然 后 浏览 器 会 将 网 页 请 求 发 送 到 Web 服务 器 ，Web 服务 器 收 到 
请 求 后 ， 通 过 扩展 名 .html 或 者 .htm 判断 HTML 文件 的 请 求 ， 然 后 将 相应 的 HTML 文件 从 
服务 器 磁盘 中 取出 并 返回 到 客户 端 浏览 器 。 在 客户 端 , 浏览 器 对 HTML 文件 解释 后 并 将 其 
显示 ， 用 户 所 看 到 的 网 页 效果 就 是 这 个 结果 。 

ASP 的 工作 原理 是 : 当 用 户 申请 一 个 .asp 文件 时 ，Web 服务 器 响应 该 请 求 ， 并 调用 服 
务 器 上 的 ASP 解释 器 ， 解 释 被 申请 的 文件 ， 生 成 相对 简单 页 面 返回 给 用 户 客户 端 浏 览 器 。 
此 类 生成 的 页 面 是 纯 HTML 文件 ， 所 以 一 般 浏览 器 都 能 够 浏览 ASP 网 页 ， 而 实际 上 当 用 
户 申请 浏览 .asp 文件 时 ， 文 件 并 不 直接 返回 给 浏览 器 。 


1.2.4 ASP 的 运行 环境 


ASP 是 一 种 服务 器 端的 脚本 语言 ， 它 只 能 在 服务 器 环境 下 才能 正常 运行 。 而 服务 器 环 
境 的 配置 要 求 也 很 简单 , 只 须 在 Windows NT、Windows 2000、Windows 2003、Windows XP、 
Windows 7 及 更 高 版 本 的 操作 系统 上 添加 和 安装 IS 组 件 即 可 。ASP 对 客户 端 没有 任何 特 
殊 的 要 求 ， 只 要 有 一 个 普通 的 浏览 器 即 可 。 


注意 : 

借助 于 第 三 方 开发 商 提 供 的 服务 器 扩展 程序 ,设计 者 也 可 以 在 UNIX、 Linux 和 Apache 
上 执行 ASP 程序 。 任何 一 种 Web 服务 器 ， 只 需 内 嵌 ASP 解释 程序 ， 就 可 以 支持 ASP 编写 
的 动态 网 页 。 


1.2.5 ”ASP 的 内 建 对 象 


ASP 主要 有 6 个 常用 的 内 建 对 象 ， 这 些 内 建 对 象 提供 了 许多 方法 和 属性 ， 大 大 方便 了 
设计 者 编写 Web 应 用 程序 。 下 面 简单 介绍 ASP 的 内 建 对 象 。 
。 Request 对 象 : 读 取 用 户 信息 。 用 于 取得 任何 由 HTTP 请 求 传递 过 来 的 信息 ， 包 括 
使 用 POST 和 GET 传递 的 参数 ， 以 及 从 服务 器 和 客户 端 认证 所 传递 的 Cookie 等 。 
e Response 对 象 : 传送 信息 给 用 户 。 可 以 使 用 它 的 方法 输出 信息 到 浏览 器 , 或 将 使 用 
者 转移 到 另 一 个 URL， 并 可 以 控制 内 容 形态 和 设 定 Cookie 值 。 
”Server 对 象 : 控制 ASP 的 执行 环境 。 提 供 存 取 Web 服务 器 的 方法 与 属性 。 
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e Session 对 象 : 存储 用 户 对 话 框 的 相关 信息 。 此 对 象 仅 适 用 于 一 个 用 户 ， 可 以 用 它 
来 记录 该 用 户 的 一 些 信息 ， 并 为 每 一 个 用 户 保留 一 个 SessionID 。 

e Application 对 象 : 用 于 为 应 用 程序 所 有 用 户 设置 属 性 ， 并 且 传 递 信息 给 用 户 。 

e ObjectContext 对 象 : 提供 在 页 面 内 进行 事务 处 理 的 功能 。 


注意 : 

使 用 ASP 内 建 对 象 ， 可 以 获得 浏览 器 传递 过 来 的 信息 ， 向 浏览 器 输出 信息 ， 记 录 单 一 
用 户 , 创建 全 体 用 户 操作 量 ， 以 及 创建 组 件 等 。 在 本 书后 面 的 章节 中 将 具体 介绍 ASP 各 内 
建 对 象 的 使 用 方法 。 


13 架设 ASP 动态 网 站 服务 器 


在 微软 公司 推出 支持 ASP 的 三 种 服务 器 中 ， 其 中 有 两 种 主要 是 为 该 公司 的 NT 系统 开 
发 的 , 功能 与 稳定 性 及 安全 性 都 较 强 。 目 前 常见 网 站 一 般 使 用 Microsoft Internet Information 
Server( 简 称 TS) 作为 服务 器 。 下 面 将 介绍 使 用 IS 架设 ASP 动态 网 站 服务 器 的 方法 。 


1.3.1 配置 Internet 服务 器 的 IP 地 址 


本 节 将 通过 实例 操作 介绍 如 何 配置 一 台 具 有 WWW 服务 功能 的 Internet 服务 器 的 第 一 
个 步骤 ， 即 设置 本 地 计算 机 的 下 地 址 。 
1. IP 地 址 简介 


所 谓 IP(Internet ProtocoD) 地 址 ， 实 际 上 就 是 一 种 用 于 标记 网 络 节点 和 指定 路 由 选择 信 
息 的 方式 。 一 个 他 地 址 被 用 来 标识 网 络 中 的 一 个 通信 实体 ， 比 如 一 台 主 机 ， 或 者 是 路 由 器 
的 某 一 个 端口 。 而 在 基于 人 P 协议 网 络 中 传输 的 数据 包 ， 也 都 必须 使 用 卫 地 址 来 进行 标识 ， 
如 同 我 们 写 一 封 信 ， 要 标明 收 信人 的 通信 地 址 和 发 信人 的 地 址 ， 邮 政工 作 人 员 则 通过 该 地 
址 来 决定 邮件 的 去 向 。 因 此 对 于 联 入 网 络 的 计算 机 而 言 ， 必 须 给 它们 分 配 唯 一 的 瑟 地 址 以 
保证 其 在 网 络 中 的 唯一 性 。 

通常 , IP 地 址 由 网 络 标识 符 与 网 络 管理 员 分 配 的 唯一 主机 标识 符 组 成 。 了 地 址 的 表示 
方法 是 带 小 数 点 的 十 进 制 记 数 法 , 其 中 每 8 位 字 节 的 十 进 制 值 用 “.” 号 分 隔 , 如 192.168.0.1 
或 者 167.0.0.11 等 。 

2. 配置 IP 地 址 


为 本 地 计算 机 配置 瑟 地 址 的 前 提 是 计算 机 上 必须 安装 有 网 络 适配器 (网 卡 )。 下 面 以 
Windows XP 操作 系统 为 例 ， 介 绍 为 网 卡 配 置 卫 地 址 的 基本 方法 。 

【 例 1-1] 在 Windows XP 操作 系统 中 设置 本 地 计算 机 的 也 地址 为 192.168.1.77, 子 网 
掩 码 为 255.255.255.0， 默 认 网 关 为 192.168.1.2。 
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(1) 选择 “开始 ” |“ 设置” |“ 控制 面 板 ” 命 令 ， 在 打开 的 “控制 面板 ”窗口 中 双击 “网 
络 连 接 ” 图 标 ， 打 开 “ 网 络 连接 ”窗口 。 

(2) 在 “网 络 连接 ”窗口 中 右 击 “ 本 地 连接 ”图 标 ， 在 弹出 的 快捷 菜单 中 选择 “属性 ” 
命令 ， 打 开 “ 本 地 连接 属性 ”对 话 框 。 

(3) 在 “本 地 连接 属性 ”对 话 框 中 选择 “常规 ”选项 卡 (如 图 1-2 所 示 )， 在 “此 连接 使 
用 下 列 项 目 ” 列 表 框 中 选择 “Intermet 协议 (TCP/IP)” 选 项 , 然后 单 击 “ 属 性 ”按钮 打开 “Internet 
协议 (TCP/IP) 属 性 ”对 话 框 。 

(4) 在 “Internet 协议 (TCP/IP) 属 性 ”对 话 框 中 选中 “使 用 下 面 的 也 地 址 ” 单 选 按钮 ， 
然后 在 “IP 地址 ”文本 框 中 输入 为 本 地 计算 机 设 定 的 他 地 址 192.168.1.77， 在“ 子 网 掩 码 ” 
文本 框 中 输入 子 网 掩 码 255.255.255.0， 在 “默认 网 关 ” 文 本 框 中 输入 默认 网 关 地 址 


192.168.1.2， 结 果 如 图 1-3 所 示 。 


此 连接 使 用 下 列 项 目 @) 


安装 加 学 展 性 巴 ) 


一 | 
| 里 是 默认 的 厂 城 网 协议 。 它 提供 跨 下 多 种 互联 网络 


图 1-2 “本 地 连接 属性 ”对 话 框 图 1-3 “Intemet 协议 (TCP/IP) 属 性 ”对 话 框 


(5) 完成 设置 后 在 “Internet 协议 (TCP/IP) 属 性 ”对 话 框 中 单 击 “确定 ”按钮 保存 设置 ， 
然后 重新 启动 系统 即 可 。 

注意 : 

在 为 本 地 计算 机 设置 IP 地 址 时 , 某 些 特殊 的 到 地址 因为 其 在 网 络 中 具有 特别 的 作用 ， 
因此 不 能 使 用 。 这 些 卫 地 址 包括 127.XXX、0XXX、224.XXX~255.XXX。 


1.3.2 安装 与 架设 IIS 


ASP 程序 是 运行 于 网 络 服务 器 端的 一 种 应 用 程序 ,要 想 正 常 运行 ASP 程序 , 还 需要 在 
完成 ntemet 服务 器 IP 地 址 的 设置 后 建立 ASP 的 运行 环境 。 常 用 的 支持 ASP 的 网 络 服务 
器 有 PWS(Personal Web ServeD 和 IIS(Internet Information Server)。 因 为 应 用 PWS 的 
Windows 95/98 操作 系统 目前 已 经 被 淘汰 , 下面 将 重点 介绍 在 Windows XP 操作 系统 中 安装 
与 配置 IS 的 方法 (在 Windows NT/2000/2003 系统 中 安装 与 架设 IIS 的 方法 与 Windows XP 
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类 似 )。 
1. 1IS 的 安装 


IIS 是 Windows 操作 系统 自 带 的 组 件 。 用 户 可 以 参考 下 面 的 实例 ， 在 Windows XP 与 
Windows 7 操作 系统 中 安装 IIS 。 

【 例 1-2】 在 Windows XP 操作 系统 中 安装 IS 服务 。 

(1) 选择 “开始 ” |“ 设置 ”| “控制 面板 ”命令 ， 在 打开 的 “控制 面板 ”窗口 中 双击 “ 添 
加 /删除 程序 ”图 标 ， 打 开 “ 添 加 或 删除 程序 ”对 话 框 ， 如 图 1-4 所 示 。 

(2) 在 “添加 或 删除 程序 ”对 话 框 中 单 击 “ 添 加 /删除 Windows 组 件 ” 按 钮 ,打开 “Windows 
组 件 向 导 ” 对 话 框 。 

(3) 在 “Windows 组 件 向 导 ” 对 话 框 的 “组 件 ” 列 表 框 中 选择 “Internet 信息 服务 (IIS)” 
选项 (如 图 1-5 所 示 )， 单 击 “ 下 一 步 ” 按 钮 ， 然 后 在 光盘 驱动 器 中 放 入 Windows xp 安装 光 
盘 即 可 开始 安装 文件 和 配置 系统 参数 。 


图 1-4 “添加 或 删除 程序 ”对 话 框 图 1-5 “Windows 组 件 向 导 ” 对 话 框 


(4) 完成 JS 组 件 的 安装 后 ， 重 新 启动 系统 即 可 。 


注意 : 

IIS 服务 提供 各 种 Intemet 服务 , 如 FTP 文件 传输 、 发 送 电子 邮件 的 SMTP 和 网 页 浏览 
的 网 站 服务 等 。 当 用 户 使 用 IIS 支持 ASP 网 站 开发 时 ， 所 有 的 网 页 都 必须 放 在 IIS 配置 界 
面 中 “网 站 ”服务 功能 下 的 目录 中 。 在 用 户 通过 浏览 器 浏览 特定 网 页 时 ，IIS 会 根据 其 指定 
的 网 址 取出 对 应 的 文件 ， 并 在 解析 后 由 Internet 传送 至 用 户 计算 机 的 浏览 器 中 。 


2.1IS 的 架设 


通过 在 “控制 面板 ”窗口 中 双击 “管理 工具 ”图 标 ， 然 后 在 打开 的 窗口 中 再 次 双击 
“Intemet 信息 服务 ”图 标 (如 图 1-6 所 示 ), 可 以 启动 IS 的 配置 主 界面 (“Intemet 信息 服务 ” 
窗口 )。 在 该 界面 中 右 击 “ 默 认 网 站 ”选项 ， 在 弹出 的 快捷 菜单 中 可 以 选择 “暂停 ”、“ 停 
止 ”或 者 “启动 ”命令 ， 来 控制 默认 的 Web 站 点 的 运行 状态 ， 也 可 以 选择 “新 建 ”|“ 虚 
拟 目录 ”命令 ， 来 发 布 一 个 新 的 Web 站 点 ， 还 可 以 对 某 个 Web 站 点 进行 “服务 器 扩展 检 
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查 ” 来 提高 IS 的 安全 性 ， 如 图 1-7 所 示 。 


本 全 | 


图 1-6 选择 “Intemet 信息 服务 ”图 标 图 1-7 IIS 的 配置 管理 主 界面 


在 系统 中 成 功 安装 IIS 后， 用户 可 以 通过 IIS 配置 管理 主 界面 架设 ASP 网 站 ， 具 体 步 
又 如 下 示例 所 示 。 

【 例 1-3】 以 Windows XP 操作 系统 为 基础 ， 使 用 IS 架设 一 个 ASP 站 点 (该 站 点 在 本 
书 下 面 的 章节 中 将 作为 测试 ASP 应 用 实例 的 默认 站 点 )。 

(1) 在 图 1-7 所 示 的 “Internet 信息 服务 ”窗口 中 右 击 “默认 网 站 ”选项 ， 在 弹出 的 快 
捷 菜单 中 选择 “属性 ”命令 ， 打 开 “ 默 认 网 站 属性 ”对 话 框 。 

(2) 在 “默认 网 站 属性 ”对 话 框 中 选择 “网 站 ”选项 卡 ， 可 以 设置 该 站 点 的 “描述 ”、 
服务 器 的 “IP 地 址 ”和 Web 服务 所 使 用 的 “TCP 端口 ”等 参数 ， 还 可 以 设置 “连接 超时 ” 
和 “日 志 记 录 ” 等 项 目 ， 如 图 1-8 所 示 。 

(3) 在 “上 默认 网 站 属性 ”对 话 框 中 选择 “ 主 目 录 ” 选 项 卡 ， 可 以 设置 Web 站 点 在 服务 
器 上 的 物理 路 径 ( 如 di\inetpub\Wwwwroot), 并 且 可 以 进行 访问 权限 的 设置 如 “ 读 取 ”、“ 写 
入 ”、“ 目 录 浏 览 ”、“ 记 录 访 问 ”、“ 脚 本 资源 访问 ”和 “索引 资源 ”属性 ， 如 图 1-9 


图 1-8 “网 站 ”选项 卡 图 1-9 “ 主 目录 ”选项 卡 


(4) 在 “ 主 目 录 ” 选 项 卡 中 单 击 “ 配 置 ”按钮 ， 在 打开 的 “应 用 程序 配置 ”对 话 框 中 选 
择 “ 调 试 ”选项 卡 ， 然 后 选中 “启用 ASP 服务 器 脚本 调试 ”和 “启用 ASP 客户 端 脚本 调试 ” 
复 选 框 ， 可 以 在 进行 对 ASP 应 用 程序 的 调试 过 程 中 让 系统 提供 调试 帮助 ， 如 图 1-10 所 示 。 
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(5) 另外 ， 在 “默认 网 站 属性 ”对 话 框 中 选择 “文档 ”选项 卡 ， 如 图 1-11 所 示 ， 可 以 
设置 当 客户 端 对 该 Web 站 点 请 求 连接 时 默认 启动 的 HTML 页 面 或 者 ASP 应 用 程序 。 选择 
“目录 安全 性 ”选项 卡 可 以 设置 “匿名 访问 和 身份 验证 控制 ”和 “安全 证 书 ”， 以 确保 管 
理 信息 系统 运行 的 安全 性 能 。 


bl 


Ca LL E 机 
图 1-10 “应 用 程序 配置 ”对 话 框 图 1-11 “文档 ”选项 卡 


(6) 完成 设置 后 单 击 “默认 网 站 属性 ”对 话 框 中 的 “确定 ”按钮 。 


注意 : 

若 用 户 需要 建立 多 个 网 站 ， 可 以 右 击 “Internet 信息 服务 (IIS) 管 理 器 ”窗口 左 侧 窗 体 中 
的 “网 站 ”选项 ， 然 后 在 弹出 的 快捷 菜单 中 选中 “添加 ”命令 ， 打 开 “ 添 加 网 站 ”对 话 框 ， 
添加 新 的 网 站 。 

在 完成 IS 的 安装 与 设置 后 ， 当 用 户 在 浏览 器 中 输入 http://localhost 时 ，IIS 将 自动 取 
得 本 地 计算 机 上 “默认 网 站 ”目录 下 存放 的 网 页 文件 (Defaultasp)， 然 后 在 将 其 解析 后 传送 
至 浏览 器 显示 。 用 户 可 以 利用 IS 的 这 一 特点 来 测试 HS 服务 器 是 否 工 作 正常 。 

IIS 默认 网 站 的 文件 目录 列表 和 与 其 对 应 的 网 站 目录 (本 书 实例 为 Di\inetpubWwwwroot) 
中 的 内 容 大 致 是 相互 对 应 的 关系 。 也 就 是 说 ， 用 户 在 ASP 站 点 目录 中 创建 的 任何 .asp 文件 
和 包含 .asp 文件 的 文件 夹 ， 都 可 以 在 “Internet 信息 服务 ”窗口 中 找到 ， 如 图 1-12 所 示 。 
而 且 要 在 浏览 器 中 显示 这 些 文件 ， 只 需要 在 地 址 栏 http://localhost 字符 串 后 面 加 上 其 相对 
路 径 和 文件 名 即 可 。 例 如 ， 要 在 浏览 器 中 浏览 Di:\inetpub\Wwwwroot 网 站 文件 夹 中 的 网 页 文 
需要 在 浏览 器 地 址 栏 中 输入 http://localhost//iisstart.asp 即 可 , 如 图 1-13 所 示 。 


= 一 Er S -| 


图 1-12 “Intemet 信息 服务 ”窗口 图 1-13 测试 ASP 站 点 
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3. 设置 虚拟 目录 


虚拟 目录 指 的 是 Web 服务 器 上 的 一 些 文件 夹 , 这 些 文件 夹 并 不 一 定 要 求 被 包含 在 主 目 
录 中 , 但 是 为 了 方便 用 户 的 访问 和 Web 服务 器 的 管理 , 用 户 可 以 通过 创建 虚拟 目录 来 将 这 
些 文件 夹 与 主 目录 相关 联 ， 使 得 它们 就 好 像 位 于 主 目录 中 一 样 。 在 Windows XP 系统 中 ， 
要 设置 IS 虚拟 目录 ， 有 以 下 两 种 方法 。 

e 在 资源 管理 器 中 设置 IS 虚拟 目录 。 右 击 “ 我 的 电脑 ”图 标 ， 在 弹出 的 快捷 菜单 中 
选择 “资源 管理 ”命令 ， 打 开 资 源 管理 器 ， 找 到 要 映射 的 目录 (如 D:\ Downloads)， 
右 击 该 目录 ,在 弹出 的 快捷 菜单 中 选择 “属性 ”命令 ,然后 在 打开 的 对 话 框 中 选择 
“Web 共享 ”选项 卡 ， 如 图 1-14 所 示 ， 选 中 “共享 文件 夹 ” 单 选 按 钮 后 ， 打 开 “ 编 
辑 别名 ”对 话 框 ， 如 图 1-15 所 示 。 在 该 对 话 框 中 完成 相应 的 设置 后 单 击 “ 确 定 ” 
按钮 返回 “Web 共享 ”选项 卡 ， 再 次 单 击 “ 确 定 ” 按 钮 。 
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图 1-14 “Web 共享 ”选项 卡 图 1-15 “编辑 别名 ”对 话 框 


e 在 Internet 信息 服务 中 建立 IIS 虚拟 目录 。 右 击 “Internet 信息 服务 ”窗口 中 的 站 点 
名 称 ， 在 弹出 的 快捷 菜单 中 选择 “新 建 ”|“ 虚 拟 目录 ”命令 ,打开 “虚拟 目录 创 
建 向 导 ” 对 话 框 ， 并 根据 该 向 导 的 配置 提示 完成 ASP 站 点 虚拟 目录 的 设置 。 

下 面 通过 一 个 简单 的 实例 ， 介 绍 在 Internet 服务 中 建立 IIS 虚拟 目录 的 具体 方法 。 

【 例 1-4】 以 【 例 1-3】 架 设 的 站 点 为 基础 , 在 网 站 服务 器 主 目录 中 设置 一 个 名 称 为 test 

的 虚拟 目录 。 

(1) 在 如 图 1-7 所 示 的 “Intemet 信息 服务 ”窗口 左 侧 的 “默认 网 站 ”选项 上 右 击 ， 在 
弹出 的 快捷 菜单 中 选择 “新 建 ”|“ 虚 拟 目 录 ” 命 令 ， 打 开 “ 虚 拟 目录 创建 向 导 ” 对 话 框 ， 
如 图 1-16 所 示 。 

(2) 单 击 “ 下 一 步 ”按钮 ， 输 入 一 个 虚拟 目录 别名 (例如 test)， 也 就 是 在 访问 网 页 的 时 
候 需 要 输入 的 名 称 ， 如 图 1-17 所 示 。 别 名 一 般 比 目录 的 路 径 名 短 ， 更 便于 用 户 输入 ， 也 更 
安全 。 
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图 1-16 打开 “虚拟 目录 创建 向 导 ” 对 话 框 图 1-17 输入 虚拟 目录 名 称 


(3) 单 击 “ 下 一 步 ”按钮 ， 输 入 虚拟 目录 的 路 径 D:\Inetpub\wwwroot， 如 图 1-18 所 示 ， 
以 后 就 可 通过 虚拟 名 称 来 访问 该 目录 中 的 文件 了 。 

(4) 单 击 “下 一 步 ”按钮 ， 进 入 权限 设置 步 又， 为 了 保证 网 站 的 安全 ， 只 须 选 择 前 3 
个 选项 (“ 读 取 ”、“ 运 行 脚 本 ”和 “执行 ”选项 ) 就 可 以 了 ， 如 图 1-19 所 示 。 


mW 一 区 
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图 1-18 输入 虚拟 目录 路 径 图 1-19 访问 权限 设置 


(5) 单 击 “ 下 一 步 ” 按 钮 ， 然 后 在 打开 的 “已 成 功 完 成 虚拟 目录 创建 向 导 ” 对 话 框 中 
单 击 “ 完 成 ”按钮 ， 完 成 虚拟 目录 创建 。 


注意 : 
用 户 若 要 删除 在 站 点 中 设置 的 虚拟 目录 ， 可 以 打开 “Internet 信息 服务 ”窗口 ， 然 后 右 
击 虚 拟 目录 名 ， 在 弹出 的 快捷 菜单 中 选择 “删除 ”命令 。 


1.4 ASP 文件 的 编写 、 保 存 、 调 试 与 运行 


ASP 实际 上 是 将 标准 的 HTML 文件 扩展 了 一 些 附加 特征 ， 它 像 标准 的 HTML 文件 一 
样 包含 HTML 语句 并 且 最 终 在 浏览 器 上 解释 并 显示 。ASP 文件 的 后 级 为 .asp， 其 中 包含 实 
现 动态 功能 的 VBScript 或 JScript 语句 ， 如 果 去 掉 那 些 VBScript 或 JScript 语句 ， 它 和 标准 
的 HTML 文件 没有 任何 区 别 。 
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本 节 将 以 【 例 1-3】 架 设 的 ASP 站 点 为 基础 ， 通 过 几 个 简单 的 实例 ， 介 绍 编写 、 保 存 、 
调试 与 运行 ASP 网 页 文件 的 方法 。 


1.4.1 编写 与 保存 ASP 文件 


在 ASP 程序 中 ， 脚 本 通过 分 隔 符 将 文本 和 HTML 标记 区 分 开 来 。ASP 用 分 隔 符 <% 和 
%> 来 包括 脚本 命令 。 在 一 个 ASP 文件 中 一 般 包含 HTML 标记 、VBScript 或 JScript 语言 的 
程序 代码 以 及 ASP 语法 。 

【 例 1-5】 使 用 Windows 系统 中 自 带 的 “记事 本 ”工具 编写 一 个 查看 系统 时 间 的 ASP 
程序 和 一 个 控制 字体 在 网 页 中 大 小 的 ASP 程序 ， 并 将 两 个 程序 文件 保存 至 【 例 1-3】 所 架 
设 的 ASP 网 站 主 目录 中 。 

(1) 启动 Windows 系统 自 带 的 “记事 本 ”工具 ， 然 后 输入 以 下 代码 : 
<Html> 
<Body> 
你 访问 本 页 面 的 时 间 是 <%=Time0%>1! 
</Body> 
</Html> 


(2) 选择 “文件 ” |“ 另存 为 ”命令 ， 打 开 “ 另 存 为 ”对 话 框 ， 在 对 话 框 的 “文件 名 ” 
文本 框 中 输入 ASP 程序 文件 的 名 称 后 (例如 输入 testl.asp)， 选 中 【 例 1-3〗 建 立 的 ASP 站 
点 目录 di\inetpub\Wwwwroot， 然 后 单 击 “保存 ”按钮 。 

(3) 选择 “文件 ”| “新建 ”命令 ， 新 建 一 个 记事 本 文档 ， 然 后 输入 以 下 代码 : 

<Html> 

<Body> 
<%For I=1 To 6%> 
<Font Size="<%=I%>"> 使 用 ASP 语句 控制 文字 大 小 </Font><Br> 
<%Next%> 

</Body> 

</Html> 

(4) 选择 “文件 ”| “另存 为 ”命令 ， 打 开 “ 另 存 为 ”对 话 框 ， 在 对 话 框 的 “文件 名 ” 
文本 框 中 输入 ASP 程序 文件 的 名 称 后 (例如 输入 test2.asp)， 选 中 【 例 1-3】 建 立 的 ASP 站 
点 目录 di\inetpub\Wwwwroot， 然 后 单 击 “ 保 存 ” 按 钮 。 

用 户 在 编写 ASP 程序 时 ， 应 要 注意 以 下 事项 。 

e 在 ASP 程序 中 ， 字 母 一 样 不 分 大 小 写 。 用 户 要 根据 自己 的 习惯 ， 自 由 选择 代码 的 

输入 形式 。 

e 在 ASP 程序 中 ，<% 和 %> 符 号 的 位 置 是 相对 随便 的 ， 可 以 和 ASP 语句 放 在 一 行 ， 

也 可 以 单独 成 为 一 行 。 例 如 ， 下 面 3 种 写法 效果 都 是 一 样 的 。 
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第 一 种 : 
<%For I=1 To 6%> 


第 二 种 : 
<% 


ForI=1 To6 
%> 


第 三 种 : 
<%For 1 To 6 
%> 


e ASP 语句 必须 分 行 写 ， 不 能 将 多 条 ASP 语句 写 在 一 行 里 ， 也 不 能 将 一 条 ASP 语句 
写 在 多 行 里 。 例 如 ， 下 面 的 两 个 例子 都 是 错误 的 : 


<% a=2 b=3 %> 


<% 
a= 
2 
%> 


e 如 果 一 条 ASP 语句 过 长 ， 需 要 换行 时 可 采用 两 种 方法 。 一 种 方法 是 可 以 不 用 Enter 
键 分 开 ， 而 是 直接 书写 ， 使 之 自动 换行 ， 另 一 种 方法 是 用 Enter 键 将 该 语句 分 成 多 
行 ， 只 是 必须 在 每 行 末 尾 ( 最 后 一 行 除 外 ) 加 一 个 下 划 线 ， 如 下 面 的 例子 : 
<%if time <#12:00# and time>=#00:00:00# then 


strGreeting=" 欢 迎 来 访 ! 这 里 是 我 们 最 新 制作 的 网 站 _ 
早上 好 ! 欢迎 你 在 参观 后 提出 宝贵 的 意见 " %> 


e 在 ASP 程序 中 ， 使 用 REM 或 “'” 符 号 来 标记 注释 语句 ， 运 行 时 ASP 不 执行 注释 
语句 。 在 代码 中 添加 注释 主要 是 为 了 方便 自己 和 别人 阅读 程序 代码 ,如 下 面 的 例子 : 
<% 
REM 这 是 一 条 注释 语句 ! 
' 这 是 另 一 条 注释 语句 ! 
%> 


另外 ,在 编辑 ASP 程序 代码 时 ， 要 养 成 良好 的 书写 习惯 ， 比 如 说 可 以 为 代码 添加 上 恰 
当 的 缩 进 。 这 样 ， 以 后 自己 和 别人 阅读 起 来 都 方便 一 些 ， 否 则 代码 很 不 容易 读 懂 ， 缩 进 的 
方法 可 以 参考 本 书 中 的 代码 书写 样式 。 
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1.4.2 ”调试 与 运行 ASP 程序 


在 成 功利 用 IS 架设 ASP 网 站 , 并 在 网 站 中 保存 了 ASP 程序 文件 后 , 可 以 使 用 Internet 
Explorer(IE) 查 看 网 站 主 目录 中 的 文件 ， 一 方面 测试 网 站 的 架设 是 否 成 功 ， 另 一 方面 调试 与 
运行 ASP 程序 。 

【 例 1-6】 以 【 例 1-3】 架 设 的 ASP 网 站 为 基础 ， 在 Internet Explorer 中 运行 【 例 1-5】 
创建 的 ASP 程序 文件 testl.asp 与 test2.asp， 并 观察 ASP 文件 在 浏览 器 端 运行 的 情况 。 

(1) 启动 nternet Explorer， 然 后 在 浏览 器 地 址 栏 中 输入 http://localhost/testl.asp， 按 下 
Enter 键 ， 即 可 运行 【 例 1-5】 编 写 的 ASP 程序 testl.asp， 如 图 1-20 所 示 。 

(2) 在 浏览 器 地 址 栏 中 输入 http://localhost/test2.asp 后 ， 按 下 Enter 键 ， 即 可 运行 【 例 
1-5】 编 写 的 ASP 程序 test2.asp， 如 图 1-21 所 示 。 
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图 1-20 testl.asp 运行 结果 1-21 test2.asp 运行 结果 


(3) 右 击 Internet Explorer 主 窗 口 ， 在 弹出 的 快捷 菜单 中 选择 “查看 源 文 件 ” 命 令 
浏览 器 端 显示 test2.asp 程序 的 源 代码 如 下 : 

<Html> 

<Body> 
<Font Size="1"> 使 用 ASP 语句 控制 文字 大 小 < Font><Br> 
<Font Size="2"> 使 用 ASP 语句 控制 文字 大 小 </Font><Br> 
<Font Size="3"> 使 用 ASP 语句 控制 文字 大 小 </Font><Br> 
<Font Size="4"> 使 用 ASP 语句 控制 文字 大 小 </Font><Br> 
<Font Size="5"> 使 用 ASP 语句 控制 文字 大 小 </Font><Br> 
<Font Size="6"> 使 用 ASP 语句 控制 文字 大 小 </Font><Br> 

</Body> 

</Html> 


通过 以 上 代码 可 以 看 出 ， 发 送 到 客户 端的 文件 是 经 过 解释 的 ， 将 其 与 【 例 1-5】 中 步 
骤 G3) 输 入 的 代码 相 比较 会 发 现 , 程序 代码 已 经 被 转化 为 标准 的 HTML 标记 。 这样, 通过 客 
户 端 浏览 ASP 网 页 用 户 将 无 法 查看 或 复制 设计 者 编写 的 ASP 程序 ， 从 而 保证 了 ASP 程序 
的 安全 性 。 


第 1 章 ASP 的 基础 知识 “15° 


15 习 题 


1. ASP 主要 为 HTML 编写 人 员 提 供 了 在 服务 器 端 运 行 脚本 的 环境 ， 使 HTML 编写 人 


员 可 以 利用 和 或 其 他 第 三 方 脚本 语言 来 创建 ASP， 实 现 有 动态 内 
容 的 网 页 。 
2. ASP 程序 的 脚本 不 是 在 客户 端 运行 的 ， 传 送 到 浏览 器 上 的 Web 页 是 在 
上 生成 的 。 
3. IIS 允许 在 一 台 计 算 机 上 创建 多 个 Web 站 点 ， 这 些 站 点 可 以 共同 使 用 一 个 人 P 地 址 同 
时 提供 信息 发 布 服务 。 它 的 实现 方法 是 为 不 同 网 站 指定 一 个 不 同 的 来 加 以 区 分 。 
4. ASP 文件 的 后 级 为 
5. ASP 用 分 隔 符 来 包括 脚本 命令 。 
1.5.2 ”选择 题 
1. ASP 文件 的 扩展 名 是 ( “)。 
Ahtm B. txt C. doc D. asp 
2. 当前 的 Web 程序 开发 中 通常 采用 ( 。 ) 模 式 。 
A.C/S B.B/S C.B/B D.C/C 
3. ASP 脚本 代码 是 在 ( 。” ) 里 执行 的 。 
A. 客户 端 B. 第 一 次 在 客户 端 ， 以 后 在 服务 器 端 
C. 服务 器 端 D. 第 一 次 在 服务 器 端 ， 以 后 在 客户 端 


1.5.3 ”问答 题 


1. 名 词 解释 : 静态 网 页 、 动 态 网 页 、 服 务 器 端 、 客 户 端 、URL。 
2. 结合 URL 知识 简 述 静态 网 页 和 动态 网 页 的 工作 原理 。 


1.5.4 ”操作 题 
1. 根据 当前 计算 机 的 实际 情况 架设 一 个 名 为 Test 的 ASP 站 点 。 


2. 以 第 1 题 架设 的 ASP 站 点 为 基础 , 创建 并 运行 一 个 .asp 文件 , 在 页 面 上 显示 来 访 日 
期 (日 期 函数 为 DateO)。 
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HTML( 超 文本 标记 语言 ) 是 制作 ASP 网 页 的 基础 .HTML 标记 是 HTML 的 核心 与 基础 ， 

用 于 修饰 、 设 置 HTML 文件 的 内 容 及 格式 。 
-个 HTML 文件 中 包含 了 所 有 将 显示 在 网 页 上 的 文字 信息 。 其 中 也 包括 对 浏览 器 的 一 

些 指 示 ， 如 文字 应 放置 在 何 处 、 显 示 模 式 如 何等 。 如 果 还 有 一 些 图片 、 动 画 、 声 音 或 任何 
其 他 形式 的 资源 ，HTML 文件 也 会 告诉 浏览 器 到 哪里 去 查找 它们 ， 以 及 它们 将 放置 在 网 页 
中 的 什么 位 置 。 

教学 目标 

通过 对 本 章 的 学 习 , 读者 应 了 解 和 掌握 HTML 的 各 种 标记 和 语法 ,并 能 够 使 用 HTML 
设计 简单 的 静态 网 页 。 

教学 重点 与 难点 

e HTML 文档 的 基本 结构 

e 创建 并 设置 HTML 网 页 

e 在 网 页 中 插入 各 类 网 页 元 素 


2.1 网 页 的 基础 知识 


Internet 是 从 Interconnected Networks 延伸 而 来 的 ， 是 跨国 界 的 网 络 。Internet 把 世界 各 
地 数 以 千 万 计 的 计算 机 和 传输 线路 连接 在 一 起 构成 一 个 网 络 。 通 过 它 可 以 交换 信息 、 共 享 
资源 ， 并 以 此 为 基础 实现 各 种 计算 机 通信 应 用 项 目 。 在 Intermet 中 ， 网 页 是 它 的 重要 组 成 
部 分 ， 本 节 将 主要 介绍 一 些 与 网 页 相关 的 名 词 和 概念 。 


2.1.1 万 维 网 


WWW(World Wide Web) 即 环球 信息 网 ， 也 可 以 称 为 Web， 中 文 名 字 为 “万 维 网 ”。 
用 户 在 使 用 浏览 器 访问 Web 的 过 程 中 , 无 须 关心 一 些 技术 性 的 细节 即 可 得 到 丰富 的 信息 资 
料 。WWW 是 Internet 上 发 展 最 快 和 目前 使 用 最 广泛 的 一 种 服务 。 
简单 地 说 , WWW 是 漫游 Internet 的 工具 , 它 把 Internet 上 不 同 地 点 的 相关 信息 聚集 起 来 ， 
通过 WWW 浏览 器 (如 正 ) 检 索 ， 无 论 用 户 所 需 的 信息 (文字 、 图 片 、 动 画 、 声 音 等 ) 在 什么 地 
， 只 要 浏览 器 为 用 户 检索 到 之 后 ， 就 可 以 将 这 些 信息 “提取 ”到 用 户 的 计算 机 屏幕 上 。 
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2.1.2” 超 文本 传输 协议 


HTTP(HyperText Transfer Protocol) 即 超 文本 传输 协议 , 它 是 WWW 服务 器 上 使 用 的 最 
主要 协议 。 通过 这 一 跨 平台 的 通信 协议 , 在 WWW 任何 平台 上 的 电脑 都 可 以 阅读 远方 服务 
器 (Server) 上 的 同一 文件 。 

HTTP 协议 经 常用 来 在 网 络 上 传送 Web 页 。 当 用 户 以 http:// 开 始 一 个 超 链 接 的 名 字 时 ， 
就 是 告诉 浏览 器 去 访问 使 用 HTTP 协议 的 Web 页 。HTTP 协议 不 仅 能 保证 正确 传输 超 文本 
文档 ， 还 可 以 确定 传输 文档 中 的 哪 部 分 ， 以 及 哪 部 分 内 容 首 先 显示 。 


2.1.3 ”统一 资源 定位 器 


URL(Uniform Resource Locator) 即 统一 资源 定位 器 , 它 使 用 数字 和 字母 来 代表 网 页 文件 
在 网 上 的 地 址 。 URL 好 比 Internet 的 门牌 号 码 , 它 可 以 帮助 用 户 在 Internet 的 信息 海洋 中 查 
找到 所 需要 的 资料 。 

Web 上 所 能 访问 的 资源 都 有 唯一 的 URL。URL 包括 所 用 的 传输 协议 、 服 务 器 名 称 、 
文件 的 完整 路 径 。 例 如 ， 在 浏览 器 的 URL 处 输入 http://www.sohu.conmyindex.html 就 可 以 访 
问 搜狐 网 站 的 主页 ， 如 图 2-1 所 示 。 


第 一 部 分 http:// 表 示 要 访问 的 资源 类 型 


第 二 部 分 www.sohu.com 为 主机 名 第 三 部 分 /index.html 表示 具体 的 页 面 文件 
图 2-1 浏览 器 的 URL 


如 图 2-1 所 示 ，URL 分 为 三 个 部 分 ， 各 部 分 的 功能 如 下 : 

e 第 一 部 分 http:// 表 示 要 访问 的 资源 类 型 。 其 他 常见 资源 类 型 中 ，ftp:// 表 示 FTP 服务 
器 ，gopher:// 表 示 Gopher 服务 器 ，new:// 表 示 Newgroup 新 闻 组 。 

e 第 二 部 分 www.sohu.com 是 主机 名 ， 它 说 明了 要 访问 服务 器 的 Internet 名 称 。 其 中 ， 
www 表示 要 访问 的 文件 存放 在 名 为 www 的 服务 器 里 ， 多 数 公司 都 有 指定 的 服务 器 
作为 对 外 的 网 上 站 点 ,叫做 www; sohu 则 表示 了 该 网 站 的 名 称 ; .com 则 指出 了 该 网 
站 的 服务 类 型 。 

e 第 三 部 分 /index.html 表示 要 访问 主机 的 哪 一 个 页 面 文件 , 可 以 把 它 理解 为 该 文件 存放 

在 服务 器 上 的 具体 位 置 。 
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注意 : 

目前 ， 常 用 的 网 站 服务 类 型 的 含义 如 下 : .com 特 指 事务 和 商务 组 织 ; .edu 表示 教育 机 
构 ; .gov 表 示 政 府 机 关 ; .mil 表示 军用 服务 ; .net 表示 网 关 ， 由 网 络 主机 或 Internet 服务 提 
供 商 决定 ; .org 一 般 表 示 公 共 服 务 或 非 正式 组 织 。 


2.1.4” 超 文本 标记 语言 


HTML(Hyper Text Mark-up Language) 即 超 文本 标记 语言 ， 是 WWW 上 通用 的 描述 语 
言 。HTML 语言 主要 是 为 了 把 存放 在 一 台 计 算 机 中 的 文本 或 图 形 与 男 一 台 计算 机 中 的 文本 
或 图 形 方便 地 联系 在 一 起 ， 形 成 有 机 的 整体 。 
HTML 标记 用 于 修饰 、 设置 HTML 文件 的 内 容 及 格式 。 用 户 只 需要 输入 文件 内 容 和 必 
要 的 标记 ， 文 件 内 容 在 浏览 器 窗口 内 就 会 按照 标记 定义 的 格式 显示 出 来 。 一 般 情况 下 ， 
HTML 标记 使 用 下 列 格式 : 
< 标记 > 文件 内 容 </ 标 记 > 


标记 需要 填写 在 一 对 尖 括 号 “<>” 内 ， 它 们 通常 是 英文 单词 的 首 字母 或 缩写 。 标 记 一 
般 情 况 下 是 成 对 出 现 的。 结束 标记 是 在 标记 的 前 面 添加 斜 本 “/”。 

在 书写 标记 时 ， 英 文字 母 的 大 、 小 写 或 混合 使 用 大 小 写 都 是 允许 的 ， 如 HTML、html 
和 Html 的 作用 和 效果 都 是 一 样 的 。 

标记 内 可 以 包含 一 些 属性 。 标 记 属 性 可 由 用 户 设置 ， 否 则 将 采用 默认 的 设置 值 。 属 性 
名 称 出 现在 标记 的 后 面 ， 并 且 以 空格 进行 分 隔 。 如 果 标 记 具 有 多 个 属性 ， 那 么 不 同 的 属性 
名 称 之 问 将 以 空格 隔 开 。 其 格式 如 下 : 


< 标记 名 字 属性 1 属性 2 属性 3 … > 


注意 : 
HTML 对 属性 名 称 的 排列 顺序 没有 特别 的 要 求 ， 用 户 可 根据 个 人 的 爱好 ， 在 标记 之 后 
排列 所 需 的 属性 名 称 。 另 外 ， 标 记 的 属性 值 需要 使 用 双 引 号 或 单 引 号 括 起 来 。 


2.2 ”HTML 文档 的 基本 结构 


HTML 文件 通常 由 三 部 分 组 成 ， 即 起 始 标记 、 网 页 标题 和 文件 主体 。 其 中 ， 文 件 主体 
是 HTML 文件 的 主要 部 分 与 核心 内 容 ， 它 包括 文件 所 有 的 实际 内 容 与 绝 大 多 数 的 标记 符号 。 

在 HIML 文本 中 ， 有 一 些 固定 的 标记 要 放 在 每 一 个 HTML 文件 里 。HTML 文件 的 总 
体 结构 如 下 所 示 : 


第 2 章 ”ASP 网 页 框架 语言 一 HIML *19°* 


<Html> 
<Head> 
网 页 的 标题 及 属性 
</Head> 
<Body> 
文件 主体 
</Body> 
</Html> 


本 节 将 以 以 上 代码 结构 为 例 ， 介 绍 HTML 文档 的 基本 结构 。 
2.2.1 添加 起 始 标记 


<Html> 标 记 位 于 HTML 文档 的 最 前 面 ,用 于 标识 HTML 文档 的 开始 。 而 </Html> 标 记 
恰恰 相反 ， 它 放 在 HTML 文档 的 最 后 面 ， 用 于 标识 HTML 文档 的 结束 ， 两 个 标记 必须 一 
起 使 用 。 通 过 对 这 一 对 特殊 标记 符号 的 读 取 ， 浏 览 器 才 可 以 判断 目前 正在 打开 的 是 网 页 文 
件 ， 而 不 是 其 他 类 型 的 文件 。 

<Html> 标 记 的 起 始 和 结束 符号 都 是 可 选 的 , 但 用 户 应 该 养 成 在 文件 中 使 用 <Html> 标 记 
的 习惯 ， 每 次 编写 HTML 文件 之 前 都 应 该 首先 在 网 页 内 添加 <Html>.…</Html> 标 记 对 ， 然 
后 再 在 标记 对 之 间 加 入 网 页 的 内 容 。 


2.2.2 ”设置 网 页 标题 


<Head></Head> 标 记 对 构成 HTML 文档 的 开头 部 分 ， 在 此 标记 对 之 间 可 以 使 用 
<Title></Title>、<Script></Script> 等 标记 对 。 这 些 标 记 对 都 是 描述 HTML 文档 相关 信息 的 
标记 对 ，<Head></Head> 标 记 对 之 间 的 内 容 不 会 在 浏览 器 的 窗口 内 显示 出 来 ， 两 个 标记 必 
须 一 起 使 用 。 

下 面 将 介绍 几 种 常用 的 网 页 标题 标记 , 包括 Title 标记 、Base 标记 、Link 标记 以 及 Meta 
标记 等 。 

1. Title 标记 

<Title> 和 </Title> 标 记 标 明 HTML 文件 的 标题 ， 是 对 文件 内 容 的 概括 。 一 个 好 的 标题 
应 该 能 使 读者 从 中 判断 出 该 文件 的 大 概 内 容 。 文 件 的 标题 一 般 不 会 显示 在 文本 窗口 中 ， 而 
以 窗口 的 名 称 显示 在 标题 栏 中 。<Title>...</Title> 标 记 对 只 能 放 在 <Head>...</Head> 标 记 对 
之 间 。 例 如 : 


<Title> 我 的 网 页 </Title> 
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2. Base 标记 


<Base> 标 记 用 于 设 定 超 链 接 的 基准 路 径 。 使 用 这 个 标记 ， 可 以 大 大 简化 网 页 内 超 链接 
的 编写 。 用 户 不 必 为 每 个 超 链 接 输入 完整 的 路 径 ， 而 只 需要 指定 它 相 对 于 <Base> 标 记 所 指 
定 的 基准 地 址 的 相对 路 径 即 可 。 该 标记 包含 参数 href， 用 于 指明 基准 路 径 。 其 用 法 如 下 : 


<Base href="URL"> 


3. Link 标记 


<Link> 标 记 表 示 超 链接 ， 在 HTML 文件 的 <Head> 标 记 中 可 以 出 现任 意 数 目的 Link 标 
记 。 它 也 包含 有 参数 href。<Link> 标 记 可 以 定义 含有 链接 标记 的 文件 与 URL 中 定义 文件 之 
间 的 关系 。 
<Link> 标 记 通常 用 来 显示 作者 身份 、 相 关 检 索 及 术语 、 旧 的 或 更 新 的 版 本 、 文 件 等 级 、 
相关 资源 等 。rel 参数 用 来 定义 HTML 文件 及 URL 之 间 的 关系 ，rev 参数 用 来 定义 URL 和 
HTML 文件 之 间 的 关系 。 该 标记 用 法 如 下 : 
<Link rev="RELATIONSHIP" © rel="RELATIONSHIP" href="URL"> 


4. Meta 标记 


<Meta> 标 记 用 来 指明 与 文件 内 容 相关 的 信息 。 每 一 个 该 标记 指明 一 个 名 称 或 数值 对 。 
如 果 多 个 <Meta> 标 记 使 用 了 相同 的 名 称 ， 其 内 容 便 会 合并 成 一 个 用 逗号 隔 开 的 列表 ， 也 就 
是 和 该 名 称 相关 的 值 。<Meta> 标 记 的 主要 属性 如 下 。 
e http-equiv: 把 标记 放 到 HTTP 头 域 之 中 。HTTP 服务 器 可 使 用 该 信息 处 理 文件 ， 特 
别 是 它 可 在 对 这 个 文件 请 求 的 响应 中 包含 一 个 头 域 。 标 题名 取 自 http-equiv 属性 值 ， 
而 标题 值 则 取 自 Content 属性 值 。 
e name: 指明 名 称 或 数值 对 的 名 称 。 如 果 没 有 ， 则 由 Http-Equiv 给 出 名 称 。 
e content: 指明 名 称 或 数值 对 的 值 ， 一 般 为 text/html。 
e charset: 指明 网 页 所 使 用 的 基本 字符 集 ， 一 般 为 GB2312， 即 标准 简体 中 文 。 
<Meta> 标 记 的 一 般 用 法 如 下 : 
<Meta http-equiv="Content-Type" content="text/html:charset=GB2312"> 


2.2.3 输入 文件 主体 


<Body>...</Body> 标 记 对 之 间 的 内 容 是 HTML 文档 的 主体 部 分 , 在 此 标记 对 之 间 可 包 
含 众多 的 标记 和 信息 ， 它 们 所 定义 的 文本 、 图 像 等 将 会 在 浏览 器 的 窗口 内 显示 出 来 ， 两 个 
标记 必须 一 起 使 用 。<Body> 标 记 中 还 可 以 设置 一 些 属性 ， 如 表 2-1 所 示 。 
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表 2-1 <Body> 标 记 中 的 属性 


属 性 示例 
<Body Bgcolor="#regbb"> 设置 背景 颜色 <Body Bgcolor="red"> 红 色 背 景 
<Body text="#rggbb"> 设置 文本 颜色 <Body text="#0000ff'> 蓝 色 文本 
<Body link="#rggbb"> 设置 超 链接 颜色 <Body link="blue"> 链 接 为 蓝 色 


<Body vlink="#ff0000"> 己 使 用 
的 超 链接 为 红色 

<Body alink="yellow"> 被 点 击 的 
超 链接 为 黄色 

表 2-1 中 所 示 的 各 个 属性 可 以 结合 使 用 ， 如 <Body Bgcolor="red" Text="#0000ff'">。 引 
号 内 的 rrggbb 是 用 6 个 十 六 进 制 数 表示 的 RGB( 即 红 、 绿 、 蓝 3 色 的 组 合 ) 颜 色 ， 如 #ff0000 
对 应 的 是 红色 。 

此 外 ， 还 可 以 使 用 HTML 语言 所 给 定 的 常量 名 来 表示 颜色 ， 如 Black( 黑 )、White( 白 )、 
Green( 绿 )、Maroon( 褐 红 )、Olive( 橄 槛 )、Navy( 深 蓝 )、Purple( 紫 )、Gray( 灰 )、Yellow( 黄 )、 
Lime( 浅 绿 )、Aqua( 蓝 绿 )、Fuchsia( 紫 红 )、Silver( 银 )、Red( 红 )、Blue( 蓝 ) 和 Teal( 青 )。 如 <Body 
Text="Blue"> 表 示 <Body></Body> 标 记 对 中 的 文本 使 用 蓝 色 显示 在 浏览 器 窗口 内 。 


2.2.4 ”HTML 文档 中 的 注释 


<Body vlink= "frrggbb"> 设置 已 使 用 的 超 链接 的 颜色 


<Body alink="#rrggbb"> 设置 正在 被 点 击 的 超 链接 的 颜色 


注释 标记 用 来 在 HTML 源 文件 中 插入 注释 , 注释 会 被 浏览 器 忽略 不 显示 。 用 户 可 以 使 
用 注释 来 解释 代码 ， 例 如 <! 一 这 是 一 条 注释 信息 -->。 这 些 注释 信息 可 在 以 后 编辑 代码 的 时 
候 ， 给 用 户 提供 必要 的 帮助 和 提示 。 
【 例 2-1】 利 用 基本 标记 ， 创 建 如 图 2-2 所 示 的 网 页 。 
(1) 启动 Windows 系统 自 带 的 记事 本 工具 后 ， 输 入 以 下 代码 ， 如 图 2-3 所 示 。 
<! 一 注释 : 这 是 一 个 具有 基本 标记 的 HTML 网 页 --> 
<Html> 
<Head> 
<Title> 显 示 在 浏览 器 最 上 边 蓝 色 条 中 的 文本 </Title> 
</Head> 
<Body Bgcolor="Teal" text="red"> 
<P> 深 青色 背景 、 红 色 文 本 </P> 
</Body> 
</Html> 
(2) 选择 “文件 ” |“ 另存 为 ”命令 ， 打 开 “ 另 存 为 ”对 话 框 ， 将 以 上 代码 保存 为 一 个 
扩展 名 为 html( 或 htm) 的 HIML 文件 ， 例 如 test3.html。 
(3) 双击 test3.html 文件 用 浏览 器 将 其 打开 ， 文 档 运行 后 的 效果 将 如 图 2-2 所 示 。 
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E73 
和 共 式 四 查看 妨 大 助 虽 
， 这 是 一 个 只 有 基本 标记 的 册 必 网 页 --> 


习 


深 青 色 背 
c/aody> 
cnrnty 


型 
I I 


图 2-2 程序 运行 结果 图 2-3 输入 代码 


注意 : 
在 注释 标记 中 ， 左 括号 “<” 后 面 需要 添加 一 个 感叹 号 ， 而 右 括号 则 无 须 添 加 。 


2.3 编辑 HTML 网 页 正文 


正文 是 网 页 的 核心 内 容 , 可 使 用 HTML 语言 在 网 页 内 对 正文 进行 划分 段落 、 插 入 标题 、 
修改 字体 、 设 置 字号 等 操作 。 另 外 ，HTML 还 允许 对 正文 应 用 不 同 的 字形 和 效果 。 


2.3.1 输入 网 页 标题 


- 般 文章 都 有 标题 、 副 标题 、 章 和 节 等 结构 , HTML 中 也 提供 了 相应 的 标题 标记 <Hn>， 

其 中 为 标题 的 等 级 。HTML 提供 6 个 等 级 的 标题 ，n 越 小 ， 标 题字 号 就 越 大 。 例 如 以 下 
代码 : 

<H1> 一 级 标题 </H1> 

<H2> 二 级 标题 </H2> 

<P> 这 是 一 行 没 有 设置 标题 格式 的 正文 文本 </P> 

<H5> 五 级 标题 </H5> 

<H6> 六 级 标题 </H6> 


用 记事 本 工具 编写 以 上 代码 并 运行 后 的 效果 如 图 2-4 所 示 。 


无 标题 - 记事 本 = 人 | | 
Ez 编 红 下 格式 0) 查看 0D 着 助 00 


条 光量 标题 必 式 的 正六 文本 (Py 


ee CHS> 
KH6> 六 级 标题 <1H6> 


图 2-4 设置 网 页 标题 格式 
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2.3.2 划分 正文 段落 


<P>...</P> 标 记 对 用 来 创建 一 个 段落 ， 在 此 标记 对 之 间 加 入 的 文本 将 按照 段落 的 格式 
显示 在 浏览 器 上 。HTML 将 多 个 空格 以 及 回 车 等 效 为 一 个 空格 ，HTML 的 分 段 完 全 依赖 于 
分 段 标记 <P>。 
此 外 ，<P> 标 记 还 可 以 使 用 Align 属性 ， 它 用 来 说 明 对 齐 方式 ， 语 法 如 下 : 
<P Align=" 对 齐 方式 "></P> 
以 上 语法 中 ,Align 的 值 可 以 是 Left( 左 对 齐 )、Center( 居 中 ) 和 Right( 右 对 齐 )3 个 值 中 的 
任何 一 个 。 例 如 以 下 代码 : 
<P Align="Left"> 第 一 段 文 字 左 对 齐 。</P> 
<P Align="Center"> 第 二 段 文字 居中 对 齐 。</P> 
<P Align="Right"> 第 三 段 文 字 右 对 齐 。</P> 
<P > 上 面 的 三 段 文字 被 P 标记 设置 了 段落 格式 。</P> 


用 记事 本 工具 编写 以 上 代码 并 运行 后 的 效果 如 图 2-5 所 示 。 


EL. 


第 一 段 文字 在 对 弄 。 
第 二 各 文字 局 中 对 齐 。 
第 三 觅 文字 右 对 开 。 
上 于 的 三 自 文 字 被 ? 巾 记 设置 了 机 落 格式。 


yr 
/PY 

三 段 文字 右 对 亦 。</P> 
字 补 人 


[sca 


图 2-5 设置 正文 段落 格式 


另外 , 利用 <Br> 标 记 可 以 在 正文 段落 中 创建 一 个 回 车 换行 。 如 果 <Br> 标 记 处 在 <P></P> 
标记 对 的 外 面 ， 将 创建 一 个 大 的 回 车 换行 ， 即 <Br> 标 记 前 面 和 后 面 的 文本 的 行 与 行 之 间 的 
距离 比较 大 。 若 处 在 <P></P> 标 记 对 的 中 间 ， 则 <Br> 标 记 前 面 和 后 面 文本 的 行 与 行 之 问 的 
距离 将 比较 小 。 


2.3.3 设置 文本 格式 


在 HTML 文件 里 ， 一 般 都 有 大 量 的 文本 和 信息 。 如 要 主 次 分 明 、 重 点 突出 的 显示 这 些 
信息 ， 则 需要 在 格式 设 定 方面 使 用 更 多 的 标记 和 更 详细 的 设置 。 

1. 设置 字体 和 字号 

<Font></Font> 标 记 对 用 来 设置 文字 字体 ， 它 的 Face 属性 指定 浏览 器 所 显示 文本 的 字 
体 类 别 ， 而 Size 和 Color 属性 则 可 以 对 输出 文本 的 字体 大 小 、 颜 色 进行 随意 的 改变 。 
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在 使 用 Font 标记 的 Face 属性 设置 文本 字体 时 ， 可 指定 一 个 字体 列表 ， 如 果 浏 览 器 不 
支持 第 一 种 字体 ， 就 会 依次 使 用 第 二 、 第 三 等 后 续 字体 显示 网 页 内 容 。 例 如 以 下 代码 : 


<Font Face=" 宋 体 .仿宋 体 ,隶书 "> 我 要 显示 的 汉字 </Font> 


Size 属性 用 来 改变 字体 的 大 小 ， 而 Color 属性 则 用 来 改变 文本 的 颜色 ， 颜 色 的 取 值 是 
十 六 进 制 RGB 颜色 码 或 HTML 语言 给 定 的 颜色 常量 名 。 
2. 黑体 、 斜 体 和 下 划 线 


除了 正常 的 字体 外 ， 还 可 为 文本 设置 粗 体 、 和 斜体 和 下 划 线 等 字形 。HTML 对 这 些 标记 
出 现 的 次 序 没 有 特别 的 要 求 。 

。 <B></B> 标 记 对 : 用 来 使 文本 以 黑体 字 的 形式 输出 。 

<D< 人 > 标记 对 : 用 来 使 文本 以 斜体 字 的 形式 输出 。 

e <U></U> 标 记 对 : 用 来 使 文本 以 加 下 划 线 的 形式 输出 。 

3. 强调 及 加 重 等 效果 


下 面 的 标记 对 用 于 设置 文本 的 强调 、 加 重 等 效果 ， 其 用 法 和 前 面 的 标记 一 样 ， 差 别 在 
于 输出 的 文本 字体 不 太一 样 。 
e <Tt></Te 标 记 对 : 用 来 输出 打字 机 风格 字体 的 文本 。 
e <Cite></Cite> 标 记 对 : 用 来 输出 引用 方式 的 字体 ， 通 常 是 斜体 。 
e <Em></Em> 标 记 对 : 用 来 输出 需要 强调 的 文本 (通常 是 斜体 加 粗 体 )。 
ee <Strong></Strong> 标 记 对 : 用 来 输出 加 强 显示 效果 的 文本 (通常 也 是 斜体 加 粗 体 )。 
【 例 2-2】 给 网 页 中 的 文字 设置 不 同 的 字体 ， 创 建 如 图 2-6 所 示 的 网 页 效果 。 
(1) 启动 Windows 系统 自 带 的 记事 本 工具 后 ， 输 入 以 下 代码 ， 如 图 2-7 所 示 。 
<Body text="blue"> 
<H1> 最 大 的 标题 </H1> 
<H3> 使 用 h3 的 标题 </H3> 
<H6> 最 大 的 标题 </H6> 
<P><B> 黑 体 字 文 本 </B> </P> 
<P><I> 斜 体 字 文本 </T> </P> 
<P><U> 下 加 一 划 线 文本 </U> </P> 
<P><Tf> 打 字 机 风格 的 文本 </Tf></P> 
<P><Cite> 引 用 方式 的 文本 </Cite></P> 
<P><Em> 强 调 的 文本 </Em></P> 
<P><Strong> 加 重 的 文本 </Strong></P> 
<P><font Size="+1" Color="red">Size 取 值 “+1”、Color 取 值 “red” 时 的 文本 </font></P> 
(2) 选择 “文件 ” |“ 另存 为 ”命令 ， 打 开 “ 另 存 为 ”对 话 框 ， 将 以 上 代码 保存 为 一 个 
扩展 名 为 html( 或 htm) 的 HTML 文件 ， 例 如 test4.html。 
(3) 双击 test4.html 文件 用 浏览 器 将 其 打开 ,文档 运行 后 的 效果 将 如 图 2-6 所 示 。 
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重用 M3 的 标 天 


Ee 
本 的 全 resa waa -rat 
本 
| -| 
TT | ~ = = 和 Te 
图 2-6 文本 格式 设置 效果 2-7 输入 代码 


超 链接 一 般 可 分 为 外 部 链接 (External Link) 与 内 部 链接 (Intermal Link)。 单 击 外 部 链接 
时 ， 浏 览 器 窗口 将 显示 其 他 文档 的 内 容 。 单 击 内 部 链接 时 ， 访 问 者 将 看 到 网 页 的 其 他 部 分 
并 显示 在 当前 浏览 器 窗口 中 。 另 外 ，HTML 还 可 以 创建 指向 邮件 地 址 的 链接 ， 单 击 该 链接 
之 后 便 可 通过 电子 邮件 软件 给 指定 的 地 址 发 送 邮 件 。 


2.4.1 创建 外 部 链接 


-个 超 链 接 通常 由 以 下 三 部 分 构成 。 
(1) 超 链 接 标记 <A></A>， 表 示 这 是 一 个 链接 。 
(2) 属性 Href 及 其 值 ， 定 义 了 超 链 接 所 指 的 目标 。 
(3) 在 超 链接 中 显示 在 网 页 上 作为 链接 的 文字 。 
HTML 中 超 链 接 文 本 的 代码 格式 如 下 : 
<A Href="URL"> 


单 击 网 页 外 部 链接 时 ， 可 在 访问 者 的 浏览 器 窗口 打开 、 跟 踪 其 他 文档 。 文 档 可 能 保存 
在 其 他 站 点 内 ， 也 可 能 保存 在 当前 站 点 内 ， 为 了 便于 区 分 这 两 种 情况 ， 可 将 指向 其 他 站 点 
文档 的 链接 称 为 URL 链接 ， 而 将 指向 同一 站 点 内 文档 的 链接 称 为 本 地 链接 。 
建 URL 链接 时 ， 需 要 给 出 URL 链接 的 完整 网 址 ， 例 如 下 面 的 代码 就 是 在 网 页 中 添加 
一 个 “清华 大 学 出 版 社 第 五 事业 部 ”的 超级 链接 : 
<A Hre 人 "http://www.tupwk.com.cn"> 清 华 大 学 出 版 社 第 五 事业 部 </A> 
- 台 计 算 机 上 对 不 同文 件 进行 链接 叫 本 地 链接 ， 常 用 相对 路 径 或 绝对 路 径 表示 一 个 
文件 。 假 如 链接 的 目标 位 于 当前 HTML 文档 所 在 文件 夹 的 子 文件 中 ， 则 可 直接 使 用 相对 路 
径 地 址 来 指向 该 目标 。 例 如 : 
<A Hre 人 "bbsogin html"> 登 录 BBS</A> 
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若 使 用 绝对 路 径 地 址 来 指向 目标 ， 则 可 表示 为 : 
<A Href="/c:\myweb\bbs\login.html"> 登 录 BBS</A> 
注意 : 
“/” 表 示 当 前 路 径 地 址 为 绝对 路 径 。 假 如 链接 的 目标 位 于 当前 HTML 文档 所 在 文件 
夹 的 上 层 文件 夹 中 ， 则 路 径 使 用 “../” 来 指向 上 层 文件 夹 。 
此 外 ，<A Href=""></A> 还 具有 Target 属性 ， 此 属性 用 来 指明 浏览 时 的 目标 框架 ， 该 
属性 的 各 项 值 的 用 法 与 含义 ， 如 表 2-2 所 示 。 


表 2-2 Target 属性 的 取 值 与 用 途 
用 途 
只 运用 于 框架 网 页 中 , 若 设 定 则 目标 网 页 将 显示 在 “框架 名 
称 ” 的 框架 中 ， 框 架 名 称 是 事先 由 框架 标记 命名 
将 链接 目标 的 内 容 打开 在 新 的 浏览 器 窗口 中 
将 链接 目标 的 内 容 作为 上 一 个 页 面 
将 链接 目标 的 内 容 显 示 在 当前 窗口 中 (默认 值 ) 
将 框架 中 链接 目标 的 内 容 显示 在 没有 框架 的 窗口 中 ( 即 除去 
了 框架 ) 

如 果 不 使 用 Target 属性 ， 当 浏览 者 单 击 了 链接 之 后 将 在 原来 的 浏览 器 窗口 中 浏览 新 的 
HTML 文档 。 若 Target 的 值 等 于 " blank"， 单 击 链接 后 将 会 打开 一 个 新 的 浏览 器 窗口 来 浏 
览 新 的 HTML 文档 ， 如 下 面 代码 所 示 : 

<A Href="http://www.163.com"” Target=”blank"> 网 易 网 站 </A> 


属 性 


Target=" 框 架 名 称 " 


Target=”blank" 或 Target="new" 
Target=" parent" 


Target="_self" 


Target="_top" 


2.4.2 创建 内 部 链接 


所 谓 内 部 链接 ， 就 是 网 页 中 的 书签 。 在 内 容 较 多 的 网 页 内 建立 内 部 链接 时 ， 它 的 链接 
目标 不 是 其 他 文档 ， 而 是 网 页 内 的 其 他 位 置 。 在 使 用 内 部 链接 之 前 ， 需 要 在 网 页 内 确定 书 
签 的 位 置 ， 并 使 用 <A> 标 记 的 Name 属性 为 书签 命名 。 内 部 链接 的 一 般 格 式 为 : 

<A Name= "书签 名 称 "> 书 签 内 容 </A> 

以 上 格式 中 “书签 名 称 ” 是 代表 “书签 内 容 ” 的 字符 串 ， 用 户 可 使 用 简短 、 有 意义 的 
字符 串 代 替 网 页 文本 。 为 了 使 Web 浏览 器 易于 区 分 “书签 名 称 ” 与 文档 内 容 ，“ 书 签名 称 ” 
前 面 需要 添加 符号 #。 例 如 ， 先 定义 一 个 标签 A， 然 后 找到 “标签 名 ”这 个 标签 ， 就 可 编写 如 
下 代码 : 

<A name=" 标 签 A"> 书 签 内 容 </A> 
<A Hre 全 "# 标 签 A"> 单 击 此 处 将 使 浏览 器 跳 到 “标签 A ”处 </A> 
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2.4.3 ”创建 邮件 链接 


邮件 链接 可 使 访问 者 在 浏览 页 面 时 ， 只 需要 单 击 电子 邮件 链接 就 能 够 打开 默认 的 邮件 
编辑 软件 ， 向 指定 的 地 址 发 送 邮件 。 电 子 邮 件 链接 的 应 用 格式 如 下 : 
<A Href-"mailto-E-mail 地 址 "> 邮件 链接 文本 </A> 
以 上 格式 中 “E-mail 地 址 ”是 用 户 在 Internet 上 的 电子 邮件 地 址 ， 而 “邮件 链接 文本 ” 
就 是 访问 者 单 击 的 文本 。 


注意 : 

访问 者 单 击 电子 邮件 链接 时 ， 将 打开 默认 的 电子 邮件 编辑 软件 。 例 如 ， 使 用 Office 系 
列 的 Outlook Express 作为 默认 的 邮件 编辑 器 时 ， 单 击 电子 邮件 链接 时 将 打开 Outlook 
Express 窗口 ，“ 收 件 人 ”一 栏 将 出 现 该 邮件 地 址 。 


2.5 在 HTML 网 页 中 插 人 图 片 


制作 ASP 网 页 时 ， 常 需要 在 页 面 上 添加 一 些 图 片 ， 因 为 有 时 “一 图 胜 千言 ”。HITML 
语言 提供 了 <Img> 标 记 来 处 理 图 像 的 输出 。 本 节 将 介绍 在 网 页 内 插入 图 像 文件 、 设 置 图 像 
链接 的 方法 ， 以 及 通过 HTML 标记 的 运用 改变 图 像 的 显示 尺寸 与 对 齐 方式 等 。 


2.5.1 插入 网 页 图 片 


HTML 采用 的 图 像 格 式 有 GIF、JPG 和 PNG 三 种 。 在 网 页 中 插入 图 像 时 ， 需 要 使 用 
HTML 的 <Img> 标 记 。 其 使 用 格式 如 下 : 
<Img Src="Picname"> 
以 上 格式 中 ，Src 是 Source( 源 ) 英 文 的 缩写 ，Picname 是 希望 在 网 页 内 显示 的 图 像 的 
URL。 在 网 页 内 创建 图 像 链 接 与 文本 链接 的 区 别 并 不 大 ， 也 需要 使 用 <A> 标 记 ， 并 指明 链 
接 目 标的 URL, 唯一 的 区 别 就 是 在 </A > 标记 符号 之 前 要 使 用 <Img> 标 记 。 图像 链接 的 标记 
格式 如 下 : 
<A Href="URL"><Img Src="Picname"></A> 


注意 : 

以 上 格式 中 ，URL 是 链接 目标 的 URL，Picname 是 图 像 文件 的 URL。 在 网 页 内 插入 图 
像 链 接 时 ， 浏 览 器 窗口 的 图 像 周围 将 出 现 黑色 边框 ， 如 果 用 户 不 希望 出 现 该 边框 ， 可 在 
<Img> 标 记 符 号 内 添加 <Border=0>。 
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2.5.2 ”设置 图 片 格式 与 布局 


默认 情况 下 ,将 图 像 插入 到 网 页 文件 之 后 ， 它 与 网 页 中 的 文本 是 垂直 居 下 对 齐 的 , 并 且 
文本 出 现在 图 像 的 右 侧 。 要 对 图 像 进 一 步 设 置 ， 需 要 了 解 更 多 的 属性 设置 方法 ， 如 表 2-3 
所 示 。 


表 2-3_ 图像 的 属性 及 其 用 途 
属 性 用 途 


<Img Src=" "> 


图 片 来 源 

图 片 大 小 , 此 宽度 及 高 度 一 般 采 用 像素 作 单位 。 通常 设 为 图 片 的 真实 
大 小 , 以 免 失 真 , 若 需 要 改变 图 片 大 小 最 好 使 用 专用 的 图 像 编辑 工具 
设 定 图 片 边沿 空白 ， 以 免 文字 或 其 他 图 片 贴近 。Hspace 用 于 设 定 图 
片 左右 的 空间 ，Vspace 用 于 设 定 图 片上 下 的 空间 ， 高 度 采用 像素 作 
单位 


<Img Width=" " Height=" "> 


<Img Hspace=" "Vspace=" "> 


Border=" " 图 片 边框 厚度 
Align="top' 调整 图 片 旁 边 文字 的 位 置 , 可 选 值 有 top、middle、 bottom、 left、 right， 
默认 值 为 bottom 
用 以 描述 该 图 形 的 文字 , 若 使 用 的 浏览 器 不 能 显示 该 图 片 时 , 这些 文 
Alt=" " 字 将 会 代替 图 片 被 显示 。 若 浏览 器 显示 了 该 图 片 ， 当 鼠标 移 至 图 片上 
该 文字 也 会 显示 
设 定 先 显示 低 解 析 度 的 图 片 。 若 在 网 页 中 加 入 的 是 一 张 很 大 的 图 片 ， 
人 用 户 浏览 时 可 能 需要 很 长 的 下 载 时 间 。 而 设置 一 张 低 解析 度 的 图 片 后 ， 


它 会 先 被 显示 以 免 浏 览 者 失去 兴趣 ， 通 常 采用 原 图 的 黑白 版 本 来 作为 
低 解析 度 图 片 

【 例 2-3】 利 用 Windows 自 带 的 记事 本 工具 ， 创 建 效果 如 图 2-8 所 示 包 含 各 种 图 片 格 
式 的 网 页 。 

(1) 新 建 一 个 文件 夹 , 并 将 素材 文件 0137.jpg、0525.jpg、0659.jpg、0218.jpg 和 0211.jpg 
复制 到 该 文件 夹 中 。 

(2) 启动 Windows 系统 自 带 的 记事 本 工具 后 ， 输 入 以 下 代码 ， 如 图 2-9 所 示 。 


图 2-8 包含 各 类 图 片 的 网 页 图 2.9 输入 代码 
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<Img Src="0137.jpe" > 普通 插入 的 图 片 。</p> 
<Img Src="0218.jpe” Align="Right" > 设 定 了 靠 右 对 齐 的 图 片 。</p> 
<Img Src="0525.jpg" Alt=" 这 是 一 张 火车 图 片 " hspace=10 vspace=20> 设 定 了 上 下 左右 空白 位 置 
及 描述 说 明 的 图 片 。</p> 
<Img Src="0659.jps” Border=4 Align="Middle"> 设 定 图 片 中 间 对 齐 ， 边 框 厚度 为 4。</p> 
<Img Src="0211.jpg" Width=80 Height=50 > 缩小 了 的 图 片 。</p> 
(3) 选择 “文件 ”| “另存 为 ”命令 ， 打 开 “另存 为 ”对 话 框 ， 将 以 上 代码 保存 为 一 个 
扩展 名 为 html( 或 htm) 的 HTML 文件 (例如 test5.html), 并 将 其 与 素材 文件 放 在 一 个 文件 夹 中 。 
(4) 双击 test5.html 文件 用 浏览 器 将 其 打开 ， 文档 运行 后 的 效果 将 如 图 2-8 所 示 。 


2.5.3 在 网 页 中 加 入 水 平 线 


使 用 <Hr> 标 记 可 以 在 网 页 中 插入 一 条 水 平 线 ， 它 的 使 用 方式 如 下 : 
<Hr Align= 对 齐 方式 Width=x%.Size=n.Noshade> 
<Hr> 标 记 具 有 Size、Color、Width、Align 和 Noshade 属性 ， 各 属性 的 含义 如 下 。 
e Size 属性 : 用 于 设置 水 平 线 的 厚度 ， 默 认 单位 是 像素 。 
e Width 属性 : 用 于 设置 水 平 线 的 宽度 ， 默 认 单位 是 像素 ， 也 可 使 用 占 浏 览 器 窗口 的 
百分比 来 设 定 。 
e Color 属性 : 用 于 设置 颜色 。 
Align 属性 : 用 于 设置 水 平 线 的 对 齐 方 式 。 
Noshade 属性 : 不 用 赋值 ， 直 接 加 入 即 可 使 用 ， 它 用 来 加 入 一 条 没有 阴影 的 水 平 线 
(不 加 入 此 属性 水 平 线 将 有 阴影 )。 
【 例 2-4】 利 用 Windows 自 带 的 记事 本 工具 ， 创 建 效果 如 图 2-10 所 示 的 包含 各 种 水 平 
线 的 网 页 。 


GS rn I rer 
ZNO Mn) ED CR) IAL WMO 
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直 欣 插入 的 水 平 厂 

宽度 为 屏幕 一 华 ， 居 中 对 开 的 水 平 二 
宽度 为 300 像 标 ， 我 右 对 齐 的 水 平 贱 
悍 度 为 5 佛 末 的 基 包 水平 线 

悍 度 为 10 佛 条 的 无 用 影 水 平实 上 


J| 
EL 所 -Rim -| 


图 2-10 包含 各 类 水 平 线 的 网 页 图 2-11 输入 代码 
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(D 启动 Windows 系统 自 带 的 记事 本 工具 后 ， 输 入 以 下 代码 ， 如 图 2-11 所 示 。 
直接 插入 的 水 平 线 <Hr> 
宽度 为 屏幕 一 半 ， 居 中 对 齐 的 水 平 线 <Hr Align=Middle Width=50%> 
宽度 为 300 像素 ， 靠 右 对 齐 的 水 平 线 <Hr Align=Right Width=300> 
厚度 为 5 像素 的 蓝 色 水 平 线 <Hr Width=50% Size=5 Color="#0000FF"> 
厚度 为 10 像素 的 无 阴影 水 平实 线 <Hr Width=50% Size=10 Noshade> 
(2) 选择 “文件 ” |“ 另存 为 ”命令 ， 打 开 “ 另 存 为 ”对 话 框 ， 将 以 上 代码 保存 为 一 个 
扩展 名 为 html( 或 htm) 的 HTML 文件 ， 例 如 test6.html。 
(3) 双击 test6.html 文件 用 浏览 器 将 其 打开 ， 文 档 运行 后 的 效果 将 如 图 2-10 所 示 。 


2.6 在 HTML 网 页 中 使 用 列表 


使 用 列表 能 够 有 效 地 表达 出 具有 并 列 、 排 序 关系 的 网 页 内 容 ， 为 访问 者 阅读 网 页 提供 
方便 。HTML 为 用 户 提供 了 编号 列表 、 符 号 列表 与 自 定义 列表 三 种 形式 。 通 过 上 述 列 表 的 
相互 嵌 套 ， 还 可 以 进一步 丰富 列表 的 表现 方式 。 


2.6.1 使 用 编号 列表 


当 网 页 中 的 某 些 内 容 存在 排序 关系 时 ， 可 以 使 用 编号 列表 ， 以 表明 这 些 内 容 是 有 前 后 
顺序 的 。 编 号 列表 的 应 用 格式 如 下 

<O> 
<Li> 编 号 列表 
</OL> 

注意 : 

在 编号 列表 的 开始 与 结束 处 ， 需 要 使 用 <Ol></OL> 标 记 对 (O1 是 Ordered List 英文 的 缩 
写 )， 它 用 于 定义 编号 列表 的 作用 范围 。 在 编号 列表 内 容 之 前 必须 添加 <Li> 列 表 项 标记 ( 它 
是 列表 选项 List Item 英文 的 缩写 )， 以 便 与 其 他 列表 相 区 别 。 

编号 列表 支持 Type 属性 ， 属 性 值 与 编号 类 型 的 对 应 关系 如 表 2-4 所 示 。 默 认 情况 下 

前 号 总 是 从 该 类 型 的 第 1 个 数值 或 字母 开始 的 ， 通 过 Type 属性 可 以 设置 编号 列表 不 同 的 
起 始 序 号 。 
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表 2-4 <Li> 标 记 的 Type 属性 设置 


英文 大 写字 母 ， 如 A、B、C 等 
英文 小 写字 母 ， 如 a、b、c 等 

罗马 大 写字 母 ， 如 I、 本 、 了 等 
罗马 小 写字 母 ， 如 i 、 站 、 谊 等 
阿拉 伯 字 母 ， 如 1、2、3 等 


2.6.2 使 用 符号 列表 


当 网 页 内 容 出 现 并 列 选项 时 , 可 采用 符号 列表 。 它 的 标记 是 <UL>( 它 是 Unordered List 
英文 的 缩写 )， 在 每 一 列表 项 的 开始 处 需要 使 用 <Li> 标 记 以 示 区 别 。 符 号 列表 的 使 用 格式 
如 下 : 

<UP> 
<Li> 符 号 列表 


</Ul> 


默认 情况 下 ， 符 号 列表 的 项 目 符号 是 圆 点 ， 改 变 Type 属性 的 赋值 时 ， 可 以 更 换 项 目 符号 
的 形式 ,用 户 可 在 Disc( 圆 点 )、Circle( 圆 图)、Square( 方 块 ) 中 选择 满意 的 项 目 符号 。 将 Type 
属性 值 添加 到 <Ul> 标 记 内 ， 所 有 的 列表 项 目 都 采用 相同 的 符号 项 目 。 将 Type 属性 值 添加 
到 <Li> 标 记 内 ， 它 只 能 改变 当前 列表 的 项 目 符号 ， 通 过 这 种 方法 可 为 列表 内 的 项 目 设置 不 
同 的 项 目 符号 。 


2.6.3 自 定义 列表 


当 网 页 内 出 现 新 词汇 、 术 语 时 ， 为 了 给 访问 者 一 个 明确 的 提示 ， 需 要 对 它们 进行 定义 
和 说 明 ， 此 时 用 户 可 以 使 用 自 定义 列表 (Definition Lisb。 自 定义 列表 标记 <DI> 是 由 一 系列 
的 词语 标记 <D 人 和 定义 标记 <Dd> 组 成 ,通常 <D 人 标记 与 <Dd> 标 记 成 对 出 现在 网 页 文件 内 ， 
词语 的 定义 内 容 以 首 行 缩 进 的 方式 显示 在 浏览 器 窗口 。 

自 定 义 列表 的 应 用 格式 如 下 : 

<DI> 
<DP 第 1 条 词语 <Dd> 定 义 内容 
<D 第 2 条 词语 <Dd> 定 义 内 容 


</DI> 


ASP 动态 网 站 开发 基础 教程 (第 4 版 ) 


2.6.4 ”定义 诅 套 列表 


HTML 不 仅 允 许 用 户 使 用 单独 的 列表 ， 还 能 够 把 不 同类 型 的 列表 相互 嵌 套 。 媒 套 的 级 
数 不 受 限制 ， 这 样 就 形成 复合 列表 ， 它 意味 着 第 一 个 列表 的 内 容 还 未 结束 时 ， 另 一 列表 就 
可 以 开始 。 例 如 ， 在 自 定 义 列表 内 ， 使 用 编号 列表 说 明 具 有 层次 感 的 列表 选项 ， 使 用 符号 
列表 说 明 具 有 并 列 关系 的 列表 选项 。 
【 例 2-5】 利用 Windows 自 带 的 记事 本 工具 ， 创 建 效果 如 图 2-12 所 示 的 包含 各 种 列表 
的 网 页 。 
(1) 启动 Windows 系统 自 带 的 记事 本 工具 后 ， 输 入 以 下 代码 ， 如 图 2-13 所 示 。 
<Dt> 
<Dt>ordered<Dd> 现 代 英汉 词典 解释 
<Ol> 
<Li> 安 排 好 的 ;整齐 的 ，<Li> 规 则 的 ;<Li> 有 秩序 的 ; 
</OP> 
<Dt>HTML 列表 <Dd> 列 表 的 种 类 
<U> 
<Li> 编 号 列表 <Li> 符 号 列表 <Li> 自 定义 列表 
</Ul> 
</Dl> 


(2) 选择 “文件 ” |“ 另存 为 ”命令 ， 打 开 “ 另 存 为 ”对 话 框 ， 将 以 上 代码 保存 为 一 个 
扩展 名 为 html( 或 htm) 的 HTML 文件， 例如 test7.html。 
(3) 双击 test7.html 文件 用 浏览 器 将 其 打开 ， 文 档 运行 后 的 效果 将 如 图 2-12 所 示 。 
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图 2-12 包含 各 类 列表 的 网 页 图 2-13 输入 代码 


2.7 在 HTML 网 页 中 使 用 表格 


表格 对 于 制作 网 页 是 很 重要 的 ， 现 在 很 多 网 页 都 是 使 用 多 重 表格 。 主 要 是 因为 表格 不 
但 可 以 固定 文本 或 图 像 的 输出 ， 而 且 还 可 以 任意 地 设置 背景 和 前 景 颜色 。 
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2.7.1 认识 表格 标记 


-个 表格 由 <Table> 标 记 开始 ,</Table> 标 记 结束 ,表格 的 内 容 由 <Tr> 标 记 和 <Td> 标 记 

定义 。<Tr> 标 记 说 明 表 格 的 一 个 行 ， 表格 有 多 少 行 就 有 多 少 个 <Tr> 标 记 ; <Td> 标 记 则 设 定 
-个 单元 格 来 填充 表格 。 

【 例 2-6】 利 用 Windows 自 带 的 记事 本 工具 ， 创 建 包含 如 图 2-14 所 示 简 单 表格 的 网 页 


效果 。 
(1) 启动 Windows 系统 自 带 的 记事 本 工具 后 ， 输 入 以 下 代码 ， 如 图 2-15 所 示 。 


<Table Border=1> 
<Tr> 
<Td> 编 号 </Td> 
<Td> 姓 名 </Td> 
<Td> 成 绩 </Td> 
</Tr> 
<Tr> 
<Td>007</Td> 
<Td> 王 燕 </Td> 
<Td>95</Td> 
</Tr> 

</Table> 


(2) 选择 “文件 ”|“ 另 存 为 ”命令 ， 打 开 “ 另 存 为 ”对 话 框 ， 将 以 上 代码 保存 为 一 个 
扩展 名 为 html( 或 htm) 的 HTML 文件 ， 例 如 test8.html。 
(3) 双击 test8.html 文件 用 浏览 器 将 其 打开 ， 文档 运行 后 的 效果 将 如 图 2-14 所 示 。 
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图 2-14 包含 一 个 表格 的 网 页 图 2-15 输入 代码 


2.7.2 设置 表格 的 整体 属性 


<Table></Table> 标 记 对 用 来 创建 一 个 表格 ， 其 属性 如 表 2-5 所 示 。 
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表 2-5 表格 的 属性 
属 性 用 途 
<Table Bgcolor=""> 设置 表格 的 背景 色 


<Table Border=""> 


设置 边框 的 宽度 ， 若 不 设置 此 属性 ， 则 边框 宽度 默认 为 0 


<Table BorderColor=""> 


设置 边框 的 颜色 


<Table BorderColorlight=""> 


设置 边框 明亮 部 分 的 颜色 ( 当 Border 的 值 大 于 等 于 1 时 才 有 用 ) 


<Table BorderColordark=""> 


设置 边框 阴影 部 分 的 颜色 ( 当 Border 的 值 大 于 等 于 1 时 才 有 用 ) 


<Table Cellspacine=""> 


设置 表格 单元 格 与 单元 格 之 间 的 空间 大 小 


<Table Cellpaddine=""> 


设置 表格 单元 格 边框 与 其 内 部 内 容 之 间 的 空间 大 小 


<Table Width=""> 


注意 : 


设置 整个 表格 的 宽度 ， 单 位 用 绝对 像素 值 或 总 宽度 的 百分比 


<Table></Table> 标 记 对 的 各 个 属性 可 以 结合 使 用 。 有 关 宽 度 、 大 小 的 单位 用 绝对 像素 
值 ， 而 有 关 颜 色 的 属性 使 用 十 六 进 制 RGB 颜色 码 或 HTML 语言 给 定 的 颜色 常量 名 。 


2.7.3 设置 表格 的 单行 


属性 


<Tr></Tr> 标 记 对 用 来 创建 表格 中 的 一 行 ， 表 格 有 多 少 行 就 有 多 少 对 <Tr> 标 记 。<Tr> 


标记 具有 表 2-6 所 示 的 属性 。 


属 性 
<Tr Align=""> 
<Tr vAlign=""> 
<Tr Bgcolor=""> 
<Tr BorderColor=""> 
<Tr BorderColorlight=""> 
<Ir BorderColordark=""> 


表 2-6_ 表 格 行 的 属性 
用 途 

设置 表格 行 的 对 齐 方式 (水 平 )， 可 选 值 为 left、center、right 
设置 表格 行 的 对 齐 方式 (垂直 )， 可 选 值 为 ttp、middle、bottom 
设置 表格 行 的 底 色 
设置 表格 行 的 边框 颜色 
设置 表格 行 的 边框 明亮 部 分 的 颜色 
设置 表格 行 的 边框 阴影 部 分 的 颜色 


【 例 2-7】 通 过 对 表格 行 的 属性 进行 设置 ， 创 建 如 图 2-16 所 示 的 表格 网 页 。 
(1) 启动 Windows 系统 自 带 的 记事 本 工具 后 ， 输 入 以 下 代码 ， 如 图 2-17 所 示 。 
<Table Width="85%" Height="85%" Border="1" Cellspacing="5" BorderColor="black"> 
<Tr BorderColor="#0000FF" Align="Right"> 
<Td> 第 一 行 边界 线 为 蓝 色 </Td><Td> 第 一 行 靠 右 对 齐 </Td> 


</Tr> 


<Tr BorderColorlight="#CF0000" BorderColordark="#00FF00" vAlign="bottom"> 
<Td> 第 二 行 向 光 边 框 为 绿色 背光 边框 为 红色 </Td><Td> 第 二 行 靠 底 对 齐 </Td> 


</Tr> 
</Table> 
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(2) 选择 “文件 ” |“ 另存 为 ”命令 ， 打 开 “ 另 存 为 ”对 话 框 ， 将 以 上 代码 保存 为 一 个 
扩展 名 为 html( 或 htm) 的 HIML 文件 ， 例 如 test9.html。 
(3) 双击 test9.html 文件 用 浏览 器 将 其 打开 ， 文 档 运行 后 的 效果 将 如 图 2-16 所 示 。 
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图 2-16 设置 表格 的 格式 


图 2-17 输入 代码 


设置 表格 单元 格 属性 


下 面 将 介绍 在 HTML 网 页 文档 中 设置 表格 单元 格 属性 的 方法 , 包括 设置 普通 单元 格 属 
性 、 设 置 标题 单元 格 属性 以 及 表格 总 标题 等 。 

1. 普通 单元 格 

<Td></Td> 标 记 对 用 来 设置 表格 中 的 一 个 单元 格 的 内 容 及 格式 。 单 元 格 中 可 以 包含 文 
本 、 图 像 、 列 表 、 段 落 、 表 单 、 水 平 线 、 表 格 等 。<Td> 标 记 具 有 属性 ， 如 表 2-7 所 示 。 


表 2-7 单元 格 的 属性 

属 性 用 途 
<Td Width=""> 设置 单元 格 的 宽度 ， 接 受 绝对 值 (如 80) 及 相对 值 (如 80%) 
<Td Height=""> 设置 单元 格 的 高 度 
<Td_Colspan=""> 设置 单元 格 的 向 右 合并 的 单元 格 数 
<Td Rowspan=""> 设置 单元 格 的 向 下 合并 的 单元 格 数 
<Td Align=""> 设置 单元 格 的 对 齐 方式 (水 平 )， 可 选 值 为 left、center、right 
<Td_ vAlign=""> 设置 单元 格 的 对 齐 方式 (垂直 )， 可 选 值 为 ttp、middle、bottom 
<Td_ Bgcolor=""> 设置 单元 格 的 底 色 
<Td_BorderColor=""> 设置 单元 格 的 边框 颜色 
<Td_ BorderColorlight=""> 设置 单元 格 的 边框 明亮 部 分 的 颜色 
<Td_ BorderColordark=""> 设置 单元 格 的 边框 阴影 部 分 的 颜色 


Background=""> 


设置 单元 格 的 背景 图 片 ， 与 Bgcolor 任用 其 一 
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2. 标题 单元 格 

<Th> 标 记 与 <Td> 标 记 同 样 是 标记 一 个 单元 格 ， 唯 一 不 同 的 是 <Th> 标 记 所 标记 的 单元 
格 中 的 文字 以 粗 体 出 现 ， 通 常用 于 表格 中 的 标题 栏 。 用 它 取代 <Td> 标 记 的 位 置 就 可 以 了 ， 
其 属性 设 定 请 参考 <Td> 标 记 。 为 <Td> 标 记 所 标记 的 文字 加 上 粗 体 标记 也 能 达到 同样 效果 。 

3. 表格 总 标题 


<Caption> 标 记 的 作用 是 为 表格 加 上 一 个 标题 ， 如 同 在 表格 上 方 加 一 没有 格 线 的 通栏 
行 ， 通 常用 来 存放 表格 标题 。 

可 使 用 <Caption Align=" " > 属性 来 设置 表格 标题 行 相 对 于 表格 的 对 齐 方式 (水 平 ), 可 选 
值 为 left、center、right、top、middle 与 bottom。 若 Align="bottom"， 标 题 列 便 会 出 现在 表 
格 的 下 方 ， 而 与 <Caption> 标 记 语句 在 <Table> 标 记 中 的 位 置 无 关 。 

【 例 2-8】 通 过 对 单元 格 的 属性 进行 设置 ， 创 建 如 图 2-18 所 示 的 表格 网 页 。 

(1) 启动 Windows 系统 自 带 的 记事 本 工具 后 ， 输 入 以 下 代码 (如 图 2-19 所 示 ): 


<Table Width="350" Border="1" Cellspacing="0" Cellpadding="2" Align="center" 
Bgcolor="#FFC4E1" BorderColor="#0000FF"> 
<Caption> 格 式 单词 与 其 含义 </Caption> 
<Tr Align="center"> 
<Td colspan="3"> 横 向 通栏 示例 </Td> 
</Tr> 
<Tr Align="center"> 
<Td rowspan="3"> 纵 向 通栏 示例 </Td> 
<Th> 格 式 单词 Th><Th> 含 义 </Th> 
</Tr> 
<Tr Align="center"> 
<Td>Width</Td><Td> 宽 度 </Td> 
</Tr> 
<Tr Align="center"> 
<Td>Height</Td><Td> 高 度 </Td> 
</Tr> 
</Table> 


(2) 选择 “文件 ” |“ 另存 为 ”命令 ， 打 开 “ 另 存 为 ”对 话 框 ， 将 以 上 代码 保存 为 一 个 
扩展 名 为 html( 或 htm) 的 HTML 文件 ， 例 如 test10.html。 
(3) 双击 test10.html 文件 用 浏览 器 将 其 打开 ， 文 档 运行 后 的 效果 将 如 图 2-18 所 示 。 


第 2 章 ASP 网 页 框架 语言 一 HIML *37* 


pcing-"r Crlipyading"2™ 习 | 


引 
Torar 


图 2-18 设置 表格 单元 格 与 标题 2-19 输入 代码 


2.8 在 HTML 网 页 中 使 用 表单 


表单 在 Web 网 页 中 用 来 供 访问 者 填写 信息 ， 从 而 使 管理 员 能 获得 访问 者 信息 ,使 网 页 
具有 交互 功能 。 表 单 设计 在 一 个 HTML 文档 中 ， 当 用 户 填写 完 信息 后 做 提交 (submib 操 作 ， 
于 是 表单 的 内 容 就 从 客户 端的 浏览 器 传送 到 服务 器 上 ， 经 过 服务 器 上 的 ASP 或 PHP 等 处 
理 程序 处 理 后 ， 再 将 用 户 所 需 信息 传送 回 客户 端的 浏览 器 上 ， 这 样 网 页 就 具有 了 交互 性 。 
本 节 将 从 最 基本 的 表单 元 素 开始 ， 介 绍 如 何 使 用 HTML 的 表单 标记 来 设置 表单 。 


2.8.1 认识 表单 的 基本 结构 


网 页 内 的 表单 由 表单 标记 <Form> 定 义 ， 使 用 <Form> 标 记 意味 着 表单 的 开始 ， 而 
</Form> 标 记 符号 则 意味 着 表单 的 结束 。 由 于 表单 通常 用 于 收集 站 点 访问 者 的 信息 ， 因 此 
在 表单 的 内 部 必须 出 现 输入 标记 <Input>， 用 于 收集 表单 数据 。 另 外 ， 还 可 将 表单 数据 发 送 
给 站 点 管理 员 ， 或 者 清除 表单 的 内 容 ， 重 新 输入 表单 。 表 单 标记 的 基本 结构 如 下 所 示 : 

<Form Action=URL Method=getlpost> 


<Input Type=Submit> 
<Input Type=reset> 
</Form> 
表单 标记 <Form> 最 重要 的 属性 就 是 Action 和 Method， 其 中 ，Action 属性 用 于 指定 表 
单 处 理 程序 的 URL。 例 如 <form action="login.asp">， 当 用 户 提交 表单 时 ， 服 务 器 将 执行 该 
HTML 文件 所 在 文件 夹 中 名 为 login.asp 的 ASP 程序 。Method 属性 用 于 定义 处 理 站 点 访问 
者 提供 数据 的 方法 ， 可 取 值 为 get 方式 与 post 方式 的 其 中 一 个 。 
eget 方式 : get 方式 下 ， 处 理 程序 从 当前 HTML 文档 中 获取 数据 ， 然 而 这 种 方式 传 
送 的 数据 量 是 有 所 限制 的 ， 一 般 限 制 在 1KB 以 下 。 
@ post 方式 : post 方式 与 get 方式 相反 , 在 post 方 式 下 当前 HTML 文档 把 数据 传送 给 
处 理 程序 ， 传 送 的 数据 量 要 比 使 用 get 方式 大 的 多 。 
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2.8.2 设 定 用 户 输入 区 域 


表单 是 一 个 能 够 包含 多 种 不 同 表单 元 素 的 区 域 。 表 单元 素 能 够 让 用 户 在 表单 中 输入 信 
息 ， 有 文本 框 、 密 码 框 、 下 拉 菜 单 、 单 选 框 、 复 选 框 等 。 

最 常用 的 表单 输入 标记 是 <Input> 标 记 ， 它 用 来 定义 一 个 用 户 输入 区 ,用 户 可 在 其 中 输 
入 信息 。<Input Type=""> 标 记 提供 了 8 种 类 型 的 输入 区 域 ， 由 Type 属性 来 决定 区 域 类 型 ， 
如 表 2-8 所 示 。 


表 2-8 表单 的 各 项 组 成 元 素 


Type 属性 取 值 输入 区 域 类 型 输入 区 域 示例 
<Input Type="Text" 单行 文本 输入 区 域 。Size 与 Maxlength 属性 用 | 姓名 : Ed 
Size="" Maxlength=""> 来 定义 显示 的 大 小 与 可 输入 的 最 大 字符 数 
<Input Type="Submit"> 将 表单 内 容 提交 给 服务 器 的 按钮 提交 查询 内 容 
<Input Type="Reset"> 将 表单 内 容 全 部 清除 ， 重 新 填写 的 按钮 重 置 
<Input Type="Checkbox" 一 个 复 选 框 ，Checked 属性 用 来 设置 该 复 选 框 | ”请 认 择 你 的 爱好 
Checked> 在 默认 情况 下 是 否 被 选中 led es 
Ng 隐藏 区 域 ， 用 户 不 能 在 其 中 输入 ， 它 常用 来 预 

是 设 某 些 要 传送 的 信息 


使 用 图 像 来 代替 Submit 按钮 ， 图 像 的 源 文件 
名 由 Sre 属性 指定 。 用 户 单 击 后 ， 表 单 中 的 信 
息 和 单 击 位 置 的 义 、Y 坐标 一 起 传送 给 服务 器 
输入 密码 的 区 域 ， 当 用 户 输入 密码 时 ， 区 域内 | sg 
将 会 显示 “*” 号 Ws 

单 选 按钮 类 型 ，Checked 属性 用 来 设置 该 单 选 | 4; hag; 
框 默认 情况 下 是 否 被 选中 .男女 


<Input Type="Image" 
Src="URL"> 


<Input 
Type="Password"> 
<Input Type="Radio" 
Checked> 


注意 : 

以 上 8 种 类 型 的 输入 区 域 有 一 个 公共 的 属性 Name， 此 属性 为 每 一 个 输入 区 域 设置 一 
个 名 字 ， 一 个 输入 区 域 对 应 一 个 名 字 ， 服 务 器 就 是 通过 调用 某 一 输入 区 域 的 名 字 的 Value 
属性 来 获得 该 区 域 的 数据 ， 而 Value 属性 是 另 一 个 公共 属性 ， 它 可 用 来 指定 输入 区 域 的 默 
认 值 。 


2.8.3 ” 设 定 列表 框 
列表 框 是 用 于 确定 选项 内 容 的 另 一 种 方式 ， 它 包括 下 拉 列 表 框 和 滚动 列表 框 两 种 ， 


在 下 拉 列 表 框 内 ， 只 能 选择 其 中 的 一 个 选项 ;在 滚动 列表 框 内 ， 则 可 以 选择 其 中 的 多 项 
内 容 。 表 单 的 列表 框 是 由 <Select> 和 <Option> 两 个 标记 来 定义 的 ， 它 的 使 用 格式 如 下 : 
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<Select Name= "name"> 
<Option> 
</Select> 
<Select> 标 记 具 有 Multiple、Name 和 Size 等 属性 。Multiple 属性 无 须 赋 值 ， 直 接 加 入 
标记 中 即 可 使 用 ， 加 入 此 属性 后 列表 框 就 成 了 可 多 选 的 了 ; Name 属性 用 于 确定 列表 的 名 
称 ; Size 属性 用 来 设置 列表 的 高 度 ， 默 认 值 为 1。 
<Option> 标 记 用 来 指定 列表 框 中 的 一 个 选项 , 它 放 在 <Select></Selec 人 > 标记 对 之 间 。 此 
标记 具有 Selected 和 Value 属性 ，Selected 属性 用 来 指定 默认 的 选项 ，Value 属性 用 来 给 
<Option> 标 记 指 定 的 那 一 个 选项 赋值 ， 这 个 值 是 要 传送 到 服务 器 上 的 ， 服 务 器 正 是 通过 调 
用 <Select> 区 域 的 名 字 的 Value 属性 来 获得 该 区 域 选 中 的 数据 项 的 。 
【 例 2-9】 创 建 如 图 2-20 所 示 的 包含 列表 框 的 表单 网 页 。 
(1) 启动 Windows 系统 自 带 的 记事 本 工具 后 ， 输 入 以 下 代码 ， 如 图 2-21 所 示 。 


<form action="apply.asp" method="post"> 
<P> 请 选择 你 的 年 龄 : 
<Select name="0ld" Size="1"> 
<option Value=" 少 年 ">9~18 
<option Value=" 青 年 " selected>19~35 
<option Value=" 中 年 ">36~55 
<option Value=" 老 年 ">55 以 上 
</Select> 
<P> 请 选择 你 所 在 的 城市 : 
<Select name="city" multiple Size="4"> 
<option Value="beijing"> 北 京 
<option Value="shanghai" selected> 上 海 
<option Value="nanjing"> 南 京 
<option Value="zhengzhou"> 郑 州 
</Select> 
</form> 


(2) 选择 “文件 ”| “另存 为 ”命令 ， 打 开 “ 另 存 为 ”对 话 框 ， 将 以 上 代码 保存 为 一 个 
扩展 名 为 html( 或 htm) 的 HTML 文件 ， 例 如 test11.html。 
(3) 双击 test11.html eis 文档 运行 后 的 效果 将 如 图 2-20 所 示 。 


Bhs loeb 
请 选择 作 的 年 扒 : [ys 本 


请 造 树 你 所 在 的 城市 : | 池州 


i 
‘<option Valuo-"2hengznou” 
/selecty 
orerm 


图 2-20 包含 列表 框 的 表单 网 页 图 2-21 输入 代码 
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2.8.4” 设 定 文本 框 与 文件 选项 


<Textarea></Textarea> 标 记 时 用 来 创建 一 个 可 以 输入 多 行文 本 的 文本 框 ， 此 标记 对 用 
于 <Form></Form> 标 记 对 之 间 。<Textarea> 标 记 时 具有 Name、Cols 和 Rows 属性 。Cols 和 
Rows 属性 分 别 用 来 设置 文本 框 的 列 数 和 行 数 ， 这 里 列 与 行 是 以 字符 数 为 单位 的 。 

如 果 在 表单 内 填写 的 内 容 太 多 ， 例 如 个 人 工作 经 历 等 ， 为 了 方便 访问 者 填写 ， 可 在 表 
单 内 添加 文件 选项 。 

在 表单 内 添加 文件 选项 时 ， 用 户 可 使 用 <Form> 标 记 的 Enctype 属性 ， 以 指定 文件 的 数 
据 类 型 ， 使 用 该 属性 还 需要 将 <Input> 标 记 的 Type 属性 设置 为 File。 


【 例 2-10】 创 建 如 图 2-22 所 示 的 包含 文本 框 与 文件 选项 的 表单 网 页 。 
(1) 启动 Windows 系统 自 带 的 记事 本 工具 后 ， 输 入 以 下 代码 ， 如 图 2-23 所 示 。 
<Form Action="select.asp"Method="post"> 
<P> 请 输入 留言 : 
<Textarea name="ly" Cols="20" Rows="4"> 
请 在 这 里 输入 您 的 看 法 和 见解 
</Textarea> 
<BI><BI><Hr Align=lefti><BI> 
请 选择 上 传 的 文件 :<Input name="filename" Type="file"><P> 
<Input Type=Submit Value=" 提 交 "> 
<Input Type=Reset Value=" 重 选 "> 
</Form> 


(2) 选择 “文件 ”| “另存 为 ”命令 ， 打 开 “ 另 存 为 ”对 话 框 ， 将 以 上 代码 保存 为 一 个 
扩展 名 为 html( 或 htm) 的 HTML 文件 ， 例 如 test12.html。 
(3) 双击 test12.html 文件 用 浏览 器 将 其 打开 ， 文档 运行 后 的 效果 将 如 图 2-22 所 示 。 


TE lo 
a jl. 
ET 

ee | | 了 “ 


这 至 贡 入 起 攀 音 二 加 
史 角 


清 给 入 留言 到 


情夫 择 上 伟 的 文件 :NS 
| 


J 
[TT ET 


图 2-22 包含 文本 框 与 文件 选项 的 表单 网 页 图 2-23 输入 代码 
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2.9 在 HTML 网 页 中 使 用 框架 


框架 网 页 把 浏览 器 窗口 切割 成 几 个 独立 的 部 分 ， 打 开 的 链接 目标 文件 只 占用 浏览 器 窗 
口 的 某 个 区 域 ， 该 区 域 就 是 框架 网 页 的 目标 框架 。 框 架 网 页 的 出 现 ， 使 得 访问 者 在 浏览 器 
窗口 中 可 同时 观察 多 个 网 页 。 


2.9.1 认识 框架 标记 


设计 框架 网 页 时 , <Frame> 标 记 和 <Frameset> 标 记 用 于 定义 框架 网 页 的 结构 。 由 于 框架 

网 页 的 出 现 ， 从 根本 上 改变 了 HTML 文档 的 传统 结构 ， 因 此 在 出 现 <Framesef> 标 记 的 文档 
中 ， 将 不 再 使 用 <Body> 标 记 ， 包 含 框架 网 页 的 HTML 文档 的 基本 结构 如 下 。 

<Html> 

<Head>…</Head> 

<Frameset>…</EFrameset> 

<Frame Src="URL"> 

</Html> 


其 中 ，URL 是 用 于 确定 在 框架 网 页 内 显示 的 网 页 文件 的 地 址 。 


注意 : 

如 果 考 虑 到 一 些 不 支持 框架 网 页 功能 的 浏览 器 ， 可 使 用 <Noframes></Noframes> 标 记 
对 ， 把 此 标记 对 放 在 <Frameset></Frameset> 标 记 对 之 间 。 

在 网 页 内 添加 框架 网 页 ， 就 意味 着 对 浏览 器 窗口 进行 纵向 与 横向 的 划分 。Rows 用 来 
规定 主 文档 中 各 个 横向 划分 的 框架 的 行 定位 , 而 Cols 用 来 规定 主 文档 中 各 个 纵向 划分 的 框 
架 的 列 定位 。 这 两 个 属性 的 取 值 可 以 是 百分数 、 绝 对 像素 值 或 星 号 “*”， 其 中 星 号 代表 那 
些 未 被 划分 的 空间 ,如 果 同 一 个 属性 中 出 现 多 个 星 号 则 将 剩 下 的 未 被 说 明 的 空间 平均 分 配 。 
同时 ， 所 有 的 框架 将 按照 Rows 和 Cols 的 值 从 左 到 右 ， 然 后 从 上 到 下 排列 。 

设置 框架 网 页 大 小 尺寸 的 例子 如 下 : 

<Frameset ROWS="*,*,*"> 

该 例 共 设置 有 3 个 按 列 排列 的 框架 ， 每 个 框架 占 整 个 浏览 器 窗口 的 1/3。 

<Frameset Cols="40%,*.*"> 

该 例 共 设置 有 3 个 按 行 排列 的 框架 ， 第 一 个 框架 占 整 个 浏览 器 窗口 的 40%， 剩 下 的 空 
间 平 均 分 配给 另外 两 个 框架 。 

<Frameset Rows="40%,.*" Cols="50%.*.200"> 


该 例 共 设 置 有 6 个 框架 ， 先 是 在 第 一 行 中 从 左 到 右 排列 3 个 框架 ， 然 后 在 第 二 行 中 从 
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左 到 右 再 排列 3 个 框架 ， 即 两 行 三 列 ， 所 占 空 间 依据 Rows 和 Cols 属性 的 值 ， 其 中 200 表 
示 的 意思 为 200 像素 。 


注意 : 

使 用 <Frameset> 标 记 时 Rows 和 Cols 这 两 个 属性 至 少 必须 选择 一 个 ， 否 则 浏览 器 只 显 
示 第 一 个 定义 的 框架 。 如 果 要 固定 框架 的 结构 大 小 ， 不 允许 用 户 在 浏览 时 拖 动 改变 框架 的 
大 小 ， 可 在 HIML 代码 中 添加 一 句 <Frame NoreSize>。 


2.9.2 ”确定 框架 目标 


在 框架 网 页 内 的 单 击 超 链接 之 后 ， 链 接 目 标 就 会 出 现在 目标 框架 内 。 在 确定 目标 框架 
之 前 ， 应 该 为 它 命名 ， 通 过 框架 网 页 的 名 称 来 确定 目标 框架 的 位 置 ， 框 架 网 页 的 名 称 应 该 
注意 区 分 大 小 写 。 内 容 相同 、 大 小 写 不 同 的 框架 网 页 名 称 将 被 认为 是 不 同 的 框架 网 页 。 确 
定 目标 框架 网 页 的 通用 格式 如 下 : 

<Frame Name=" 框 架 网 页 名 称 "> 
<A Href=URL,Target=" 框 架 网 页 名 称 "> 

对 于 一 些 特殊 的 框架 网 页 ，HTML 已 经 预先 为 其 设置 了 名 称 ， 这 些 常用 的 特殊 框架 网 
页 包括 以 下 几 类 。 

e black: 空白 框架 网 页 。 单 击 链接 文本 之 后 ， 将 打开 一 个 新 的 浏览 器 窗口 ， 并 显示 

链接 目标 。 
e self: 将 链接 指向 当前 框架 网 页 。 单 击 链接 文本 之 后 ， 链 接 目标 将 在 链接 文本 所 在 
的 框架 网 页 内 出 现 ， 并 且 链 接 文本 窗口 将 被 刷新 。 

e parent: 将 链接 指向 父 框架 网 页 。 如 果 没 有 父 框架 网 页 ， 那 么 它 就 指向 自己 。 父 框 
架 、 子 框架 网 页 是 根据 网 页 的 结构 关系 设置 的 。 

e top: 指向 整个 浏览 器 窗口 本 身 ， 它 是 打开 网 页 时 首先 看 到 的 浏览 器 窗口 。 


2.9.3 设置 框架 网 页 的 外 观 


框架 网 页 外 观 是 由 框架 网 页 的 边框 、 间 距 、 颜 色 、 页 边 距 、 滚 动 条 等 组 成 的 。 默 认 情 
况 下 ，HTML 提供 了 一 系列 的 默认 值 ， 分 别 对 上 述 选项 进行 设置 。 根 据 应 用 框架 网 页 的 背 
景 、 场 合 的 不 同 ， 用 户 可 以 自 定义 框架 网 页 的 外 观 。 

通过 设置 FrameBorder 属性 ， 可 以 自 定义 边框 是 否 出 现 。 设 置 框架 网 页 边框 的 应 用 格 
式 如 下 : 


<Frame FrameBorder=YesINo> 


其 中 , Yes 表示 在 浏览 器 窗口 显示 框架 网 页 边框 。 如果 选 择 No, 框架 网 页 边框 将 消失 。 
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类 似 地 ， 将 FrameBorder 属性 设置 为 0 时 ， 框 架 网 页 边框 也 将 消失 ， 但 设置 任何 大 于 0 的 
数值 时 ， 框 架 网 页 边框 都 会 出 现 ， 并 且 宽 度 是 一 致 的 。 

框架 网 页 间距 是 指 框架 网 页 之 间 的 空白 区 域 ， 框 架 网 页 的 内 容 不 会 出 现在 该 区 域 。 使 
用 <Frameset> 标 记 的 Framespacing 属性 可 以 设置 不 同 的 框架 网 页 间距 ， 当 需要 将 浏览 器 框 
架 网 页 内 所 有 的 框架 网 页 间距 设置 为 50 像素 时 ， 可 在 网 页 文件 内 添加 下 列 语 句 : 


<Framest Cols="1090.*" Framespacine=50> 


每 个 框架 网 页 都 相当 于 一 个 独立 的 网 页 ， 因 此 可 对 网 页 的 页 边 距 进行 设置 。<Frame> 
标记 的 MarginLength 和 MarginHeight 属性 分 别 用 于 设置 页 边 距 的 宽度 和 高 度 。 


注意 : 

当 框 架 网 页 的 内 容 超过 框架 网 页 的 大 小 尺寸 时 ， 可 以 使 用 滚动 条 拖 动 的 方式 来 观察 整 
个 网 页 的 内 容 。 用 户 可 通过 Frame 标记 的 Scrolling 属性 决定 是 否 允 许 滚动 条 出 现在 浏览 器 
窗口 。 用 户 可 将 Yes、No、Anuto 赋值 给 Scrolling 属性 。 默 认 情况 下 ， 系 统 将 给 Scrolling 
属性 赋值 为 Auto, 这 样 可 根据 框架 网 页 内 容 的 多 少 , 决定 是 否 在 浏览 器 窗口 内 出 现 滚动 条 。 


【 例 2-11】 创 建 如 图 2-24 所 示 的 框架 网 页 。 
(1) 启动 Windows 系统 自 带 的 记事 本 工具 后 ， 输 入 以 下 代码 ， 如 图 2-25 所 示 。 

<Frameset Cols=20%,*> 

<Frame Src="http://www.edu.cn"> 
<Frameset Rows=40%.*> 
<Frame Src="http://www.pku.edu.cn"> 
<Frame Src="http://www.tsinghua.edu.cn"> 
</Frameset> 

</Frameset> 


(2) 选择 “文件 ”| “另存 为 ”命令 ， 打 开 “另存 为 ”对 话 框 ， 将 以 上 代码 保存 为 一 个 
扩展 名 为 html( 或 htm) 的 HTML 文件 ， 例 如 test13.html。 
(3) 双击 test13.html 文件 用 浏览 器 将 其 打开 ， 文档 运行 后 的 效果 将 如 图 2-24 所 示 。 


<Frane Src-"http://www-pku.edu.cn"> 
<Frane Src="http://wwe-tsinghuaedu.cn"> 


到 


[ in Gol :a 


图 2-25 输入 代码 
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2.10 DHTML 简介 


使 用 DHTML 技术 ， 可 通过 浏览 器 技术 、 客 户 端 脚本 技术 和 CSS 样式 表 ， 生 成 变化 缤 
纷 的 动态 页 面 。 

DHTML 是 Dynamic HTML( 动 态 HTML) 的 简称 ， 它 是 一 种 即使 在 脱离 网 络 环境 的 情 
况 下 ， 网 页 装载 入 浏览 器 以 后 仍然 能 够 随时 变换 内 容 的 技术 。 比 如 ， 当 鼠标 指针 移 至 文章 
段落 中 ， 段 落 能 变 成 醒目 的 红色 或 蓝 色 ; 在 网 页 的 页 面 上 ， 随 机 性 地 漂浮 着 一 些 漂亮 的 小 
标志 ， 网 页 横幅 不 断 地 滑动 或 具有 滚动 闪 亮 的 效果 等 。 

DHTML 之 所 以 能 够 制作 出 “动感 ”的 效果 ， 首 先是 因为 DHTML 将 网 页 中 的 每 个 元 
素 划分 成 了 许多 独立 的 对 象 ， 通 过 CSS 来 指定 这 些 对 象 的 属性 。 

CSS 是 DHTML 网 页 进行 改变 的 对 象 ， 网 页 中 的 各 种 变化 都 是 通过 脚本 语言 设置 CSS 
的 属性 来 实现 的 。 因 此 可 以 说 CSS 是 编写 DHTML 网 页 的 基础 。 

CSS 本 身 是 HTML 的 扩展 ， 因 此 语法 规则 并 不 复杂 ， 掌 握 HTML 语言 使 用 方法 后 就 
不 难看 懂 CSS 代码 。CSS 的 功能 十 分 强大 ， 它 能 够 对 文字 间距 、 字 体 、 列 表 、 颜 色 、 背 景 、 
位 置 等 多 种 属性 进行 精确 控制 。 

将 CSS 样式 表 添 加 到 HTML 文档 的 方法 有 多 种 ， 可 链接 外 部 样式 表 、 嵌 入 样式 表 以 
及 输入 样式 、 内 联 样式 等 。 


注意 : 

此 外 ，CSS 还 具有 艺术 功能 的 滤 镜 效果 。 滤 镜 效 果 将 可 视 化 的 滤 镜 和 转换 效果 添加 到 
标准 的 HTML 元 素 上 ， 可 进行 有 序 的 变化 和 更 替 演示 ,产生 精彩 的 渐变 和 动画 效果 。 运 用 
好 动态 网 页 技术 ， 可 使 制作 的 网 页 美 轮 美 奥 ， 大 放 异 彩 。 


2.11 习 题 


2.11.1 填空 题 


1. HTML 网 页 文件 的 标记 是 ， 网 页 文件 的 主体 标记 是 ， 标 
记 页 面 标题 的 标记 是 。 

2. 创建 一 个 HTML 文档 的 开始 标记 符 是 ， 结 束 标记 符 是 。 

3. 实现 网 页 交互 性 的 核心 技术 是 

4. 为 图 片 添加 简要 说 明文 字 的 属性 是 

5. 表格 单元 格 垂直 所 用 的 属性 是 ， 单 元 格 横向 合并 所 用 的 属性 是 
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6. 请 写 出 在 HIML 网 页 中 设 定 表格 边框 厚度 的 属性 ， 设 定 表 格 单元 格 之 
间 宽 度 的 属性 ， 设 定 表格 内 容 与 单元 格 线 之 间距 离 的 属性 


2.11.2 选择 题 


1. 下 面 不 是 文本 标签 属性 的 是 ( 。 )。 


A.Size B. Align 
C. Color D. Face 
2. 下 面 电子 邮件 链接 正确 的 是 (。”)。 
A. xxx.com.cn B. xxx@.net 
C. xxx@com D. xxx@xxx.com 
3. 下 列 选 项 中 可 以 在 新 窗口 打开 网 页 文档 的 是 (。”)。 
A._self B._blank 
C. top D. _parent 
4. 常用 的 网 页 图 像 格式 有 ( ”)。 
A.gif 和 tiff B. tiff 和 jpg 
C. gif 和 jpg D.tiff 和 png 


2.11.3 ”问答 题 


1. 什么 是 URL? 请 简 述 URL 的 基本 格式 。 
2. 制作 HTML 网 页 需要 哪些 软件 ? 
3. 简 述 如 何在 HTML 网 页 中 插入 图 片 并 设置 图 片 格式 。 


2.11.4 ”操作 题 


1. 利用 各 种 编辑 文本 的 HTML 标记 建立 图 2-26 所 示 的 网 页 。 
2. 利用 建立 表单 的 各 种 HTML 标记 建立 图 2-27 所 示 的 网 页 。 
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图 2-26 唐诗 网 页 效果 图 2-27 注册 表单 效果 
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本 章 将 介绍 ASP 脚本 编程 语言 中 的 一 种 一 VBScript.VBScript 是 专业 编程 语言 Visual 
Basic 的 子 集 。 使 用 VBScript 可 以 实现 很 多 动态 交互 功能 ， 诸 如 在 将 数据 发 送 到 服务 器 之 
前 先进 行 处 理 和 校 验 , 创建 新 的 Web 内 容 ， 甚 至 编写 完全 在 客户 端 运行 的 应 用 程序 ,如 计 
算 器 和 游戏 使 用 程序 、 扩 展 客户 端的 功能 等 。 

教学 目标 

通过 对 本 章 的 学 习 ， 读 者 应 掌握 VBScript 语言 中 常量 、 变 量 与 数组 等 基本 概念 ， 并 能 
够 熟练 使 用 流程 控制 语句 编制 一 些小 程序 ， 完 成 一 些 简 单 的 应 用 。 


e VBScript 语言 概述 
e VBScript 中 的 变量 
e VBScript 中 的 运算 符 
e 条 件 语句 

e 赋值 语句 


3.1 _ VBScript 语言 概述 


VBScript 是 ASP 默认 的 脚本 编程 语言 。 为 Web 页 面 增加 VBScript 脚本 ， 可 以 实现 一 
些 既 实用 又 方便 的 操作 。 下 面 将 介绍 VBScript 语言 的 特点 以 及 在 HTML 与 ASP 中 的 应 用 ， 
帮助 用 户 初步 了 解 VBScript 语言 的 概念 。 


3.1.1 VBScript 语言 的 特点 


VBScript 可 以 用 来 完成 重复 性 的 Windows 操作 系统 任务 。 在 Windows 操作 系统 中 ， 
VBScript 可 以 在 Windows Script Host 的 范围 内 运行 。 Windows 操作 系统 可 以 自动 辨认 与 执 
行 *.VBS 和 *.WSF 两 种 文件 格式 。 此 外 , Internet Explorer 可 以 执行 HTA 和 CHM 文件 格式 。 
VBScript 语言 有 以 下 几 个 特点 。 

e 以 对 象 为 基础 : VBScript 有 别 于 Visual Basic 或 Visual C++ 程序 语言 的 对 象 导向 
(Object-Oriented)， 它 以 对 象 为 基础 (Object-Based)。 对 象 基 础 语言 不 仅 支持 对 象 的 
属性 与 成 员 函 数 ， 而 且 可 以 用 来 编写 动作 并 反映 出 对 象 相关 的 时 间 。 

e 易学 易 用 : 用 户 若 了 解 Visual Basic 或 Visual Basic for Applications， 就 会 很 快 熟悉 
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VBScript。 即 使 没有 学 过 Visual Basic 只 要 学 会 VBScript， 就 可 以 使 用 所 有 Visual 
Basic 语言 进行 程序 设计 。 

其 他 应 用 程序 和 浏览 器 中 的 VBScript: 开发 人 员 在 产品 中 可 以 免费 使 用 VBScript 
源 程序 。 微 软 公司 为 32 位 Windows API、16 位 Windows API 和 Macintosh 提供 
VBScript 的 二 进 制 实现 程序 。VBScript 与 Web 浏览 器 集成 在 一 起 ， 可 以 在 其 他 应 
用 程序 中 作为 Web 通用 脚本 语言 使 用 。 


3.1.2 在 HTML 中 使 用 VBScript 


在 HIML 网 页 设计 过 程 中 ， 使 用 VBScript 语言 一 般 是 在 HTML 文件 中 藤 入 VBScript 
脚本 ， 从 而 扩展 HTML 的 功能 ， 获 得 单 赁 HTML 语言 无 法 实现 的 网 页 效果 。 
script 元 素 用 于 将 VBScript 代码 添加 至 HTML 页 面 中 ， 例 如 以 下 代码 : 


<html> 
<head> 
<title>Hello from VBScript! </title> 
<script Language="VBScript" RunAt="Server"> 
sub showO 
Response. Write("Hello from VBScript! ") 
End sub 
</script> 
</head> 
<body> 
<% 
Call show0 
%> 
</body> 
</html> 


以 上 程序 中 VBScript 代码 的 开始 和 结束 部 分 都 有 <script> 标 记 。 其 中 ，Language 属性 
用 于 指定 程序 所 使 用 的 脚本 语言 (由 于 浏览 器 能 够 使 用 多 种 脚本 语言 , 因此 必须 在 此 指定 使 
用 的 脚本 语言 )。 将 代码 保存 后 (例如 保存 为 test14.asp)， 然 后 将 其 复制 到 本 书 第 1 章 架 设 的 
ASP 网 站 主 目录 中 并 运行 ， 将 可 以 在 浏览 器 中 显示 如 图 3-1 所 示 的 效果 。 
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Hello from VBScript! 
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图 3-1 网 页 效果 
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注意 : 

script 元 素 块 可 以 出 现在 HTML 页 面 代码 的 任何 地 方 (body 或 head 部 分 )。 但 是 设计 者 
最 好 将 所 有 的 一 般 目 标 脚本 代码 放 在 head 中 ,以 便 使 所 有 脚本 代码 集中 放置 。 这样 可 以 确 
保 在 body 部 分 调用 代码 之 前 所 有 脚本 代码 都 被 读 取 并 解码 。 


以 上 规则 的 一 个 例外 情况 是 , 在 窗口 中 提供 内 部 代码 以 响应 窗口 中 对 象 的 事件 。 例如 : 
<html> 
<head> 
<title>Hello from VBScript! </title> 

</head> 

<body> 

<form name="form1"> 

<input type="Button" name="Button1" value=" 单 击 "> 

<script for="Button1" event="onClick" Language="VBScript"> 
MsgBox" 已 单 击 按钮 ! " 

</scrip> 

</form> 


</body> 
</html> 


将 以 上 代码 保存 (文件 名 为 test15.asp) 并 运行 后 ， 用 户 在 打开 的 浏览 器 窗口 中 单 击 “ 确 
定 ” 按 钮 后 ， 如 图 3-2 所 示 ， 将 弹出 如 图 3-3 所 示 的 提示 对 话 框 。 
9 Ed 
GO le de) 
文件 于 ) 编辑 下 查看 WV 收藏 兴 (A) » 
hello em Vascriptt 


图 3-2 程序 运行 结果 图 3-3 单 击 按钮 后 的 效果 


注意 : 

大 部 分 脚本 代码 在 sub 或 function 过 程 (本 书后 面 的 章节 将 介绍 ) 中 , 仅 在 其 他 代码 要 调 
用 它 时 执行 。 但 是 ， 用 户 也 可 以 将 VBScript 代码 放 在 过 程 以 外 的 script 中 。 
3.1.3 在 ASP 中 使 用 VBScript 


ASP 是 一 套 服务 器 端的 对 象 模型 ， 其 本 身 并 不 是 一 种 脚本 语言 ， 但 它 却 为 嵌入 HTML 
页 面 中 的 脚本 语言 提供 了 运行 环境 。 在 ASP 程序 中 常用 的 脚本 语言 有 VBScript 和 JScript 
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等 语言 ， 系 统 默认 的 语言 为 VBScript 语言 。 

VBScript 语言 是 ASP 默认 下 的 主 脚本 语言 ， 它 用 于 处 理 在 分 节 符 “<% ”与 “%>” 内 
部 的 命令 。 本 节 将 介绍 通过 IIS 指定 ASP 脚本 语言 以 及 在 ASP 程序 中 如 何 声明 与 使 用 
VBScript 语言 的 方法 。 

1. 通过 IIS 指定 ASP 默认 脚本 语言 


在 Windows 系统 中 ， 用 户 可 以 通过 IIS 指定 默认 使 用 的 脚本 语言 ， 只 要 是 <% 和 %> 之 
间 的 代码 ，ASP 在 解释 时 会 认为 它 使 用 的 是 默认 脚本 语言 。 下 面 将 以 两 个 简单 的 实例 分 别 
介绍 Windows XP 系统 中 指定 ASP 默认 脚本 语言 的 方法 。 

在 Windows XP 系统 中 ， 可 以 参考 下 例 所 介绍 的 方法 设置 ASP 默认 脚本 语言 。 

【 例 3-1】 在 Windows XP 系统 中 ， 通 过 “Internet 信息 服务 ”控制 台 设 定 ASP 的 默认 
脚本 语言 为 VBScript。 

(1) 选择 “开始 ”| “运行 ”命令 ， 打 开 “ 运 行 ” 对话 框 ， 输 入 inetmgr 命令 并 按 下 Enter 键 。 

(2) 系统 打开 IIS 的 管理 工具 “Intemet 信息 服务 ”控制 台 ， 在 欲 设置 的 网 站 名 称 上 右 
击 ， 从 弹出 的 快捷 菜单 中 选择 “属性 ”命令 ， 如 图 3-4 所 示 。 

(3) 单 击 “ 主 目录 ”标签 ， 打 开 “ 主 目录 ”选项 卡 。 

(4) 单 击 “配置 ”按钮 ， 打 开 “ 应 用 程序 配置 ”对 话 框 。 单 击 “ 选 项 ”标签 ， 打 开 “ 选 
项 ”选项 卡 ， 如 图 3-5 所 示 。 
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图 3-4 右 击 需 要 设置 的 网 站 3-5 “应 用 程序 配置 ”对 话 框 


(5) 在 “默认 ASP 语言 ”文本 框 中 ， 设 置 默认 ASP 语言 为 VBScript 或 JScript， 然 后 
单 击 “ 确 定 ”按钮 。 

注意 : 

虽然 不 同 版 本 的 Windows 操作 系统 配置 IIS 的 具体 步骤 并 不 完全 相同 ， 但 配置 方法 却 
大 臻 类似， 因此 ， 用 户 可 以 参考 本 例 所 介绍 的 方法 ， 在 Windows NT/2000/2003/7 中 指定 
ASP 脚本 语言 。 

2. 在 ASP 文件 中 进行 脚本 语言 声明 

若 用 户 需要 在 某 一 单个 页 面 指定 使 用 VBScript 脚本 语言 , 可 在 文件 初始 部 分 用 一 条 声 
明 语句 进行 指定 。 需 要 特别 注意 的 是 ， 该 语句 一 定 要 放 在 所 有 语句 之 前 ， 如 下 例 所 示 : 
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<%@ Language=VBScript %> 
<Html><Head> 


</Html></Head> 


注意 : 
通常 ，VBScript 脚本 是 不 区 分 大 小 写 的 ， 例 如 用 户 可 以 在 ASP 程序 中 使 用 Response 


或 response。 


3.2 VBScript 中 的 变量 


变量 是 任何 编程 语言 的 基础 ， 它 可 以 作为 应 用 程序 中 临时 的 存储 空间 ， 以 实现 对 数据 
的 各 种 操作 。 例 如 ， 用 户 可 以 创建 一 个 名 称 为 UserName 的 变量 来 存储 每 次 用 户 登录 时 的 
账号 。 每 个 变量 在 内 存 中 都 被 分 配 了 一 段 空间 ， 但 是 变量 的 标识 并 不 是 通过 它 的 内 存 地 址 
来 实现 的 ， 而 是 通过 变量 名 。 在 VBScript 中 ， 只 有 一 个 基本 数据 类 型 ， 即 变量 (Variant)， 
而 且 VBScript 的 变量 也 是 不 区 分 大 小 写 的 。 


3.2.1 简单 变量 的 声明 
声明 变量 有 显 式 声明 和 隐 式 声明 两 种 方式 。 
显 式 声明 要 用 到 Dim 语句 、Public 语句 和 Private 语句 。 例 如 : 
<% Dim strUserName %> 
声明 多 个 变量 时 ， 可 使 用 逗号 来 分 隔 变 量 。 例 如 : 
<% Dim strUserName,strPassword.b %> 
隐 式 声明 变量 没有 声明 变量 语句 ， 而 直接 使 用 变量 名 。VBScript 在 使 用 变量 时 ， 就 会 
自动 创建 该 变量 。 例 如 : 
<% dtmToay =Now0 %> 
当前 日 期 和 时 间 是 <% =dtmToday %> 


3.2.2 数组 变量 的 声明 


数组 变量 是 一 类 具有 相同 名 字 ， 但 有 不 同 下 标 值 的 变量 ， 简 称 数组 。 数 组 中 的 每 个 元 
素 都 用 唯一 的 下 标 来 识别 。 例 如 intAge(9) 中 ，intAge 是 数组 名 ，9 是 下 标 。 

数组 变量 的 声明 同 简单 变量 相同 ， 唯 一 的 区 别 是 声明 数组 变量 时 变量 名 后 面 带 有 括 
号 ， 下 例 声 明了 一 个 包含 20 个 元 素 的 一 维 数组 : 
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Dim IngSum (19) 
数组 的 下 标 是 从 0 开始 的 ， 数 组 元 素 的 数目 总 是 括号 中 显示 的 数目 加 1， 所 以 上 面 这 
个 数组 变量 实际 上 包含 20 个 元 素 。 下 面 的 代码 可 以 对 上 面 定义 的 数组 进行 赋值 : 


IngSum (0)=1 
lngSum (1)=2 
lngSum (2)=3 


IngSum (19)=20 
具有 两 个 或 多 个 下 标的 数组 称 为 二 维 数组 或 多 维 数组 。 声 明 多 维 数组 时 用 逗号 分 隔 括 
号 中 每 个 下 标 ， 如 下 面 的 代码 就 声明 了 一 个 5 行 8 列 的 二 维 数组 : 
Dim intCounters(4.7) 
如 果 事 先 不 知道 数组 的 大 小 ， 可 声明 一 个 动态 数组 。 动 态 数组 可 以 在 运行 脚本 时 根据 
实际 的 需要 ， 使 用 ReDim 来 调整 数组 的 维 数 和 每 一 维 的 大 小 。 例 如 : 
Dim curRevenue 0 
ReDim curRevenue (25) 


ReDim curRevenue (9.11) 


注意 : 

重新 调整 动态 数组 大 小 的 次 数 是 没有 任何 限制 的 ， 但 是 ， 存 储 在 数组 中 的 当前 值 
都 会 全 部 丢失 ，VBScript 重新 将 数组 元 素 的 值 全 部 置 为 空 。 如 果 希 望 改变 数组 大 小 的 
同时 而 又 不 丢失 数组 中 的 数据 ， 则 要 在 ReDim 语句 中 带 上 Preserve 关键 字 ， 如 <% 
ReDim Preserve curRevenue (9,11) %>。 但 仍 要 注意 的 是 ， 将 数组 的 大 小 调 小 时 ， 仍 将 
会 丢失 被 删除 元 素 的 数据 。 


3.2.3 ”变量 的 赋值 


变量 的 赋值 比较 简单 。 一 般 情况 下 ， 编 制 表达 式 的 左边 ， 要 赋 的 值 在 表达 式 的 右边 。 
变量 的 赋值 方式 可 以 采用 以 下 方式 : 
。 “=” 号 赋值 。 例 如 给 变量 count 赋值 100， 如 下 : 


count = 100 
e 直接 使 用 函数 返回 值 。 例 如 : 


A=GetValue(b.c) 
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。 复制 对 象 的 赋值 。 该 赋值 方式 需要 使 用 Set， 例 如 : 
Set re = Server.CreateQbject("ADODB.RecordSet") 


以 上 为 简单 变量 的 赋值 。 用 户 在 为 数组 变量 赋值 时 , 可 以 对 每 一 个 数组 元 素 分 别 赋值 ， 
例如 ， 在 给 3 个 元 素 的 一 维 数组 变量 Array(2) 赋 值 时 ， 可 以 表示 如 下 : 


Aray(0) ="ID" 

Array(1) = "Name" 

Array(2) = "Sex" 
注意 : 


采用 同样 的 方法 可 以 对 其 他 高 维 数 组 变量 赋值 。 
3.2.4 变量 的 命名 约定 


给 变量 起 名 称 时 ， 一 定 要 遵循 VBScript 的 标准 命名 规则 。 变 量 命名 必须 遵循 以 下 儿 个 
方面 : 
第 一 个 字符 必须 是 字母 。 
不 能 包含 句点 。 
长 度 不 能 超过 255 个 字符 。 
在 声明 的 作用 域内 必须 唯一 。 
名 字 不 能 和 关键 字 同 名 。 

VBScript 不 区 分 变量 名 称 的 大 小 写 。 例 如 ， 将 一 个 变量 命令 为 strUserName 和 将 其 命 
名 为 STRUSERNAME 效果 是 一 样 的 。 另 外 ， 给 变量 命名 时 ， 要 含义 清楚 ， 便 于 记忆 。 建 
议 尽 量 按 表 3-1 所 示 的 前 缀 来 命名 变量 ， 以 便 通 过 变量 的 名 称 便 可 获知 该 变量 的 子 类 型 。 


表 3-1_ 用 来 表示 子 类 型 的 名 字 前 组 
| 有 | am 
| | pen | 
| a | 


FF 例 
dblTolerance 
blnMarried 
dtmStart Object 


3.2.5 变量 的 作用 域 与 存活 期 


变量 的 作用 域 由 声明 它 的 位 置 决定 。 如 果 在 过 程 中 声明 变量 ， 则 只 有 该 过 程 中 的 代码 
可 访问 或 更 改变 量 值 ， 此 时 变量 具有 局 部 作用 域 并 被 称 为 过 程 级 变量 。 如 果 在 过 程 之 外 声 
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明 变量 ， 则 该 变量 可 以 被 脚本 中 所 有 过 程 所 识别 ， 称 为 脚本 级 变量 ， 具 有 脚本 级 作用 域 。 

用 户 在 开发 大 型 ASP 网 站 时 , 程序 代码 量 非常 庞大 ,网 站 开发 过 程 中 不 可 避免 会 出 现 
相同 名 字 的 变量 。 此 时 , 应 使 用 变量 的 作用 域 , 避免 发 生变 量 重 名 的 问题 .例如 , 在 test16.asp 
中 的 脚本 命令 返回 值 100000， 如 图 3-6 所 示 。 虽 然 以 下 程序 中 有 两 个 名 称 为 X 的 变量 , 但 
是 在 SetProcedureVariable0 过 程 中 定义 的 变量 X 为 过 程 级 变量 ， 在 此 过 程 之 外 无 效 : 


<% 

DimX "定义 脚本 级 变量 

X=100000 "初始 化 变量 

"调用 SetProcedureVariable0 过 程 

Call SetProcedureVariable 

Response.Write X "在 网 页 上 显示 X 的 值 

Sub SetProcedureVariable0 "定义 SetProcedureVariable0 过 程 
Dim X ' 定 义 过 程 级 变量 
X=200000 

End Sub 

%> 


若 用 户 没有 声明 变量 ， 则 可 能 会 不 小 心 改 变 一 个 脚本 级 变量 的 值 。 例 如 在 test17.asp 

中 ， 由 于 变量 没有 显 式 声明 ， 以 下 的 脚本 命令 将 返回 200000， 如 图 3-7 所 示 。 当 过 程 调用 
将 和 设置 为 200000 时 ， 脚 本 引擎 认为 该 过 程 是 要 修改 脚本 级 变量 。 

<% 

X=100000 

"调用 SetProcedureVariable0 过 程 

Call SetProcedureVariable 

Response.Write X 

Sub SetProcedureVariable() 

X=200000 
End Sub 
%> 


"初始 化 变量 


"在 网 页 上 显示 X 的 值 
"定义 SetProcedureVariableO 过 程 


x 


[Chttp://1ocnhosT /eg EE 
ES 
文件 中 ”编辑 人 E) 查看 人 收藏 天 ! ?> 
访 收 戈 夫 。 砍 http://locahostw/t 


100000 

习 
阿 二 ftraet [7| 于 I00% - 
图 3-6 test16.asp 显示 效果 


注意 : 


脚本 级 变量 仅 在 单个 ASP 页 中 可 用 。 要 使 它 在 单个 ASP 页 之 外 可 用 ， 就 必须 为 


ISTEETETCS lolxl 
[ES mtp'11oe.., 加 [8B| 
文件 全 编辑 时) 查看 WW 收藏 天 ! » 
窗 收 戈 闪 外 http://locahosW/t..， 


200000 


到 
同 丰 地 Intranet [56 -| 下 100% -> 坟 
图 3-7 ”test17.asp 显示 效果 
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变量 赋予 会 话 Session 或 应 用 程序 Application 作用 域 。 会 话 作 用 域 对 一 个 用 户 所 请 求 
的 ASP 应 用 程序 中 的 所 有 页 都 是 可 用 的 。 

变量 存在 的 时 间 称 为 存活 期 。 脚 本 级 变量 的 存活 期 从 被 声明 的 那 一 刻 起 ， 直 到 脚本 运 
行 结 束 。 对 于 过 程 级 变量 ， 其 存活 期 仅 是 该 过 程 运行 的 时 间 ， 该 过 程 结 束 后 ， 变 量 随 之 消 
失 。 在 执行 过 程 时 ， 局 部 变量 是 理想 的 临时 存储 空间 。 可 以 在 不 同 过 程 中 使 用 同名 的 局 部 
变量 ， 这 是 因为 每 个 局 部 变量 只 被 声明 它 的 过 程 识 别 。 


3.3 VBScript 中 的 运算 符 


运算 符 是 完成 操作 的 一 系列 符号 。VBScript 提供 了 4 种 类 型 的 运算 符 ， 即 算术 运 
算 符 、 连 接 运 算 符 、 关 系 运算 符 和 逻辑 运算 符 。 将 运算 符 和 操作 数 连接 起 来 ， 就 构成 
了 表达 式 。 


3.3.1 算术 运算 符 
算术 运算 符 用 于 执行 简单 的 算术 运算 ， 其 语法 如 下 : 
NumExp =NumExp1l Operator NumExp2 


其 中 ，NumExp、NumExpl 和 NumExp2 均 为 数值 表达 式 ，Operator 为 算术 运算 符 。 
VBScript 中 的 算术 运算 符 ， 如 表 3-2 所 示 。 


表 3-2 算术 运算 符 

运算 表达 式 
加 法 其 FE 
减法 X—Y 
乘法 We 
整数 除法 XY 
指数 Wm 
余数 XModY 
正 号 +X 
负 号 -XX 
字符 串 连接 XS&YS 
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3.3.2 ”关系 运算 符 


关系 运算 符 用 来 比较 两 个 表达 式 的 值 的 大 小 ， 如 大 于 (>)、 小 于 (<)、 大 于 等 于 C=)、 小 
于 等 于 (<=)、 不 等 于 (< >) 和 等 于 (=)。 关 系 运算 的 结果 是 逻辑 值 True 或 False。 关 系 运算 可 
用 于 数值 间 的 比较 ， 也 可 用 于 字符 串 间 的 比较 。 当 用 于 字符 串 间 的 比较 时 ， 将 按 ASCII 码 
值 的 大 小 由 左 向 右 依 次 逐个 字符 进行 比较 ， 直 到 比较 出 结果 为 止 。VBScript 中 的 关系 运算 
符 ， 如 表 3-3 所 示 。 


表 3-3 关系 运算 符 


运算 表达 式 
相等 X=Y 
不 相等 XY 
大 于 X>Y 
小 于 X<Y 
大 于 等 于 X>=Y 
小 于 等 于 X<=Y 
对 象 相等 XISY 


3.3.3 ”逻辑 运算 符 


迪 辑 运算 通常 也 称 为 布尔 运算 ， 专 门 用 于 迪 辑 值 之 间 的 运算 。 迪 辑 运算 的 各 运算 符 及 
其 含义 ， 如 表 3-4 所 示 。 


表 3-4 逻辑 运算 符 
运算 符 | 含义 举例 说 明 优先 级 
Not 逻辑 非 Not(3>1) 3 大 于 1 为 真 ， 取 反 后 为 候 高 
And 逻辑 与 G>D AndC<4) 两 个 表达 式 的 值 都 为 真 时 才 为 真 


Or 逻辑 或 G3>1) Or2=4) 两 个 表达 式 的 值 有 一 个 为 真 即 为 真 
两 个 表达 式 的 值 有 一 个 且 只 有 一 个 
为 真 时 才 为 真 

仅 当 两 个 表达 式 的 值 相同 时 才 为 真 
仅 当 第 一 个 表达 式 的 值 为 真 时 才 为 真 | 低 


Xor 逻辑 异 或 | (3>1) Xor(2<4) 


Eqv 逻辑 等 于 | (3-1) Eqv(4-2) 
mp 逻辑 蕴含 | (3>1) ImpC<4 


注意 : 


逻辑 运算 符 连 接 两 个 或 多 个 关系 式 ， 组 成 一 个 布尔 表达 式 。 
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3.3.4 连接 运算 符 


连接 运算 是 将 两 个 字符 表达 式 连接 起 来 , 生成 一 个 新 的 字符 串 。 连接 运算 符 有 “+” 和 “&” 
两 个 。 
使 用 & 运 算 符 时 ， 参 与 连接 的 两 个 表达 式 可 以 不 全 是 字符 串 ， 即 & 运 算 符 能 强制 性 地 
将 两 个 表达 式 的 值 作为 字符 串 连接 。 例 如 : 
<% 
money=56 


strTemp=" 应 收 金额 ="&money 
%> 


而 使 用 + 运算 符 时 ， 操 作 数 必须 是 字符 串 。 例 如 : 


<% 

money="56" 
strTemp=" 应 收 金额 ="+money 
%> 


3.3.5 ”运算 符 的 优先 级 


当 一 个 表达 式 包含 有 多 个 运算 符 时 ， 执 行 运算 的 符号 有 一 个 固定 的 优先 计算 顺序 ， 如 
下 所 示 : 
算术 运算 符 > 连 接 运算 符 > 关 系 运算 符 > 逻 辑 运算 符 
对 于 同 优 先 级 的 运算 符 ， 以 从 左 到 右 的 顺序 进行 计算 。 在 表达 式 中 ， 可 以 使 用 括号 
改变 计算 的 优先 顺序 ， 强 令 表达 式 的 某 些 部 分 优先 运算 。 括 号 内 的 运算 总 是 优先 于 括号 
外 的 运算 。 


mm 


mm 


注意 : 
算术 运算 符 之 间 的 优先 顺序 是 : 指数 、 一 元 减 、 乘 除 、 取 模 和 加 减 。 逻 辑 运算 符 
之 间 的 优先 顺序 按 表 3-2 所 示 从 上 到 下 逐渐 降低 。 


3.4 _ VBScript 中 的 数据 类 型 


VBScript 只 有 一 种 数据 类 型 ， 即 Variant 类 型 ， 也 叫做 变 体 类 型 。Variant 类 型 可 以 在 
不 同 的 场合 代表 不 同类 型 的 数据 。 例 如 ，Variant 类 型 用 于 数字 时 ， 将 作为 数值 处 理 ; 用 于 
字符 串 时 ， 将 作为 字符 串 处 理 。 
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注意 : 
由 于 Variant 类 型 是 VBScript 中 唯一 的 数据 类 型 ， 因 此 这 也 是 VBScript 中 所 有 函 
数 的 返回 值 的 数据 类 型 。 


大 多 数 情况 下 ，Variant 类 型 会 按照 最 适用 于 其 包含 的 数据 的 方式 进行 操作 。 例 如 : 


Variable=2011 "VBScript 会 把 Variable 当成 整数 对 待 
Variable= "2011" VBScript 会 把 Variable 当成 字符 串 对 待 
Variable=#2011-07-13# "VBScript 会 把 Variable 当成 日 期 对 待 
VBScript 还 会 根据 代码 的 上 下 文 自动 转换 数据 的 子 类 型 。 例 如 : Variable_1="2012"， 
这 里 Variable_1 被 看 做 一 个 字符 串 来 对 待 ， 而 如 果 下 面 有 一 句 Variable_2= Variable 1+3， 
这 时 VBScript 就 会 自动 将 Variable_1 转换 为 整数 变量 ， 然 后 参与 运算 。 
根据 Variant 类 型 所 能 够 包含 的 数值 信息 类 型 的 不 同 ， 可 以 将 这 种 特殊 的 数据 类 型 细 
分 为 多 种 子 类 型 ， 各 子 类 型 名 称 及 其 说 明 ， 如 表 3-5 所 示 。 
表 3-5 Variant 类 型 的 子 类 型 
子 类 型 说 阴 
声明 一 个 变量 后 ， 如 果 还 没有 初始 化 ， 则 该 变量 的 值 是 Empty。 
可 以 用 ISEmpty0 函 数 来 测试 变量 是 否 已 初始 化 。 当 变量 为 Empty 值 时 ， 可 以 在 表达 
Empty 式 中 使 用 ， 至 于 是 将 其 作为 0 还 是 作为 零 长 度 的 字符 串 来 处 理 ， 要 根据 具体 的 表达 
式 来 定 。 只 要 将 任何 值 (包括 0、 零 长 度 字符 串 或 NulD) 赋 予 变 量 ,Empty 值 就 会 消失 ; 
而 将 关键 字 Empty 赋予 变量 ， 就 可 以 将 变量 恢复 为 Empty 值 
空 值 ， 表 示 不 包含 任何 有 效 数 据 。 
Null 常用 于 数据 库 应 用 程序 ,表示 未 知 数据 或 丢失 的 数据 。 如 果 表 达 式 中 包含 Null， 


Null 那么 计算 结果 总 是 Null。 将 Null、 值 为 Null 的 变量 或 计算 结果 为 Null 的 表达 式 作为 
参数 传 给 大 多 数 函 数 ， 将 使 函数 返回 Null。 可 以 使 用 ISNull0 函 数 来 测试 表达 式 是 否 
不 含 任何 有 效 的 数据 

Boolean 包含 逻辑 值 ， 只 有 Tre 或 False 这 两 个 值 

Byte 表示 0~255 之 间 的 整数 

Integer 表示 - 32 768~32 767 之 间 的 整数 


表示 - 922 337 203 685 477.580 8~922 337 203 685 477.580 7 之 间 的 数 。Currency 是 
一 个 精确 的 定点 类 型 ， 适 用 于 货币 运算 
Long 表示 - 2 147 483 648~2 147 483 647 之 间 的 整数 


Currency 


单 精度 浮 点 数 ， 负 数 范围 为 - 3.402 823E38~ - 1.401 298E - 45， 正 数 范围 为 


Single 
1.401 298E - 45~3.402 823E38 


双 精 度 浮 点 数 , 负数 范围 为 - 1.797 693 134 862 32E308~ - 4.940 656 454 841 247E - 324， 
正 数 范围 为 4.940 656 454 841 247E - 324~1.797 693 134 862 32E308 


Double 
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( 续 表 ) 
子 类 型 说 了 明 
表示 日 期 数值 ， 日 期 范围 从 公元 100 年 1 月 1 日 到 公元 9999 年 12 月 31 日。 时间 值 
从 00:00:00 到 23:59:59。 
Date(Time) 
在 代码 中 使 用 日 期 和 时 间 值 时 , 必须 用 一 对 # 号 将 其 括 起 来 , 如 #3-6-2011 4:20:16 PM# 
等 。AM 表示 上 午 ，PM 表示 下 午 
String 表示 字符 串 数值 ， 字 符 串 的 最 大 长 度 可 为 20 亿 个 字符 
Object 引用 程序 所 能 识别 的 任何 对 象 
Error 包含 错误 号 


在 使 用 Variant 类 型 的 数据 子 类 型 时 ， 可 以 使 用 转换 函数 来 转换 数据 的 子 类 型 ， 也 可 
以 使 用 VarType 函数 返回 数据 的 Variant 子 类 型 。 关 于 这 些 函 数 的 详细 信息 ， 可 查看 3.10 
节 “VBScript 函数 ”中 的 相关 内 容 。 


3.5 VBScript 中 常量 的 定义 


常量 就 是 拥有 固定 数值 的 名 称 ， 常 量 可 以 代表 字符 串 、 数 字 等 常数 。 常 量 一 经 声明 ， 
在 程序 执行 期 间 ， 其 值 不 会 发 生 改变 。 

声明 常量 后 可 以 在 程序 的 任何 部 分 使 用 该 常量 来 代表 特定 的 数值 ， 从 而 方便 程序 的 编 
写 。 例如 ,在 计算 程序 中 常用 PI 来 表示 Zz 的 近似 值 3.141 592 6, 这样 既 不 容易 出 错 ,程序 
也 更 加 简洁 明了 。 在 程序 的 其 他 地 方 就 可 以 使 用 PI 来 表示 7 的 近似 值 了 。 例 如 : 


<% 
Const PI=3.1415926 "指定 PI 为 常量 ， 其 值 为 3.141 592 6 
S=PI*R^2 ' 求 半径 为 R 的 圆 的 面积 ， 并 将 值 赋 给 S 
%> 

注意 : 


如 果 要 在 多 个 ASP 文件 中 使 用 一 些 相同 的 常量 , 则 可 以 把 常量 定义 放 在 单独 的 文 
件 中 ， 然 后 在 所 有 使 用 这 些 常量 的 ASP 文件 中 包含 这 些 定义 即 可 。 


3.6 ”赋值 语句 


与 其 他 编程 语言 一 样 ，VBScript 中 也 包含 一 些 基本 的 语句 。 这 些 语 句 主要 分 为 赋值 语 
句 、 条 件 语 句 与 循环 语句 三 类 。 其 中 条 件 语句 与 循环 语句 能 够 在 程序 中 控制 程序 的 流程 ， 
而 赋值 语句 的 作用 是 将 一 个 数据 赋 给 一 个 变量 。 在 VBScript 中， 赋值 语句 就 是 一 条 赋值 表 
达 式 ， 其 一 般 形式 为 : 
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变量 = 表达 式 

其 中 ， 变 量 可 以 是 数值 变量 ， 也 可 以 是 字符 串 变 量 。 同 样 ， 表 达 式 可 以 是 数值 型 表达 

式 或 字符 串 表达 式 。 变 量 的 类 型 应 与 表达 式 的 类 型 一 致 。 例 如 以 下 代码 声明 一 个 变量 ， 并 
给 变量 count 赋值 10。 


Dim count "定义 count 变量 
count=10 将 count 变量 赋值 10 
注意 : 


赋值 语句 是 VBScript 中 最 简单 、 使 用 最 多 的 语句 。 在 VBScript 中 ， 多 个 变量 赋 
相同 的 值 时 ， 不 能 写 为 : 变量 = 变量 =...= 表 达 式 的 形式 ， 应 该 逐个 赋值 。VBScript 中 
变量 声明 时 不 可 以 赋值 ， 变 量 的 声明 和 赋值 是 分 开 的 ， 不 能 同时 进行 。 

例如 ， 以 下 代码 (test.asp) 是 一 个 简单 的 赋值 语句 , 它 给 一 个 变量 赋值 并 显示 该 变量 的 值 : 


<body> 
<% 
Dim num "声明 变量 
num=100 初始 化 变量 
Response .Write("<center><font size=10>") "设置 对 齐 方式 和 字体 大 小 
Response.Write("num="&num) ' 在 网 页 上 显示 num 的 值 
Response. Write("</font>") 
%> 
</body> 


运行 以 上 代码 后 的 结果 如 图 3-8 所 示 。 若 将 代码 中 声明 并 给 num 赋值 的 代码 (第 3 句 和 
第 4 句 ) 改 为 Dim num=100， 程 序 运 行 结果 将 如 图 3-9 所 示 。 


文件 EF 编辑 下) 查看 Y) 收藏 夹 ! > 


窗 收 藏 天 看 http://localhost//t... 


num=100 


pm 
4 0 feompatlhle: WETE 7 0 Winions PS 


| 
阿森 本 ae [有 -| 扩 100% 大 
图 3-8 ”赋值 语句 程序 实例 图 3-9 错误 赋值 结果 


3.7 条 件 语句 


条 件 语句 用 于 判断 条 件 是 True 或 False， 并 且 根 据 判 断 结果 来 指定 要 运行 的 语句 (语句 
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既 可 为 单条 语句 ， 也 可 以 是 由 多 条 语句 组 成 的 复合 语句 )。 用 户 使 用 条 件 语句 可 以 编写 进行 
判断 和 重复 操作 的 VBScript 代码 ， 在 VBScript 中 主要 有 If...Then 语句 、If...Then...Else 
语句 和 Select Case 语句 等 三 类 条 件 控制 语句 。 


3.7.1 “If...Then 语句 


下 ..…Then 语句 是 控制 结构 中 最 常用 的 一 种 。 利 用 该 语句 可 以 检查 条 件 ， 并 基于 检查 的 
结果 来 执行 一 段 程序 语句 。 其 语法 格式 如 下 : 
If condition Then 


Statement( 语 句 块 ) 
EndIf 


当 condition 条 件 满足 时 ( 即 condition 值 为 True 时 )， 将 执行 Statement。 例 如 以 下 代码 
(test19.asp) 是 一 个 I..….Then 语句 实例 。 该 实例 要 求 用 户 在 网 页 的 文本 框 中 输入 一 个 字符 串 ， 
当 用 户 单 击 网 页 中 的 “提交 ”按钮 后 ， 程 序 会 调用 checkO 过 程 判 断 用 户 是 否 在 文本 框 中 输 
入 了 字符 串 ， 若 没有 输入 则 将 弹出 一 个 提示 框 ， 如 图 3-10 所 示 。 

html> 


<script language="VBScript"> 


function check() 
If forml.str.value="" Then 
alert(" 请 输入 字符 串 ) 
End If 
End Function 
</script> 


</html> 


BEE -lolx 
GO le lx 


"定义 checkO 过 程 
判断 输入 框 是 否 输入 
' 没 有 输入 则 给 出 提示 


BTEC -lolzl 
GO delelx] 


文件 四 编 辐 到 查看 WD 收藏 歼 () 工具 » 


ET 面 Es 
请 输入 字符 串 :三 
el LN wre 


CE 


| 
EEC 


三 阿 和 fraet 


图 3-10 下 ..Then 语句 应 用 实例 


第 3 章 VBScript 编程 基础 2 


3.7.2 If...Then...Else 语句 


下 ..…Then.….Else 语句 是 下 .Then 语句 的 扩展 。 该 语句 定义 了 两 个 可 执行 语句 块 : 当 条 
件 为 Tme 时 运行 一 个 语句 块 ， 条 件 为 False 时 运行 男 一 语句 块 。 其 语法 格式 如 下 : 


If condition Then 
Statement1( 语 句 块 1) 
Else 
Statement2( 语 句 块 2) 
EndIf 


当 condition 条 件 满足 时 ， 即 condition 值 为 True 时 ， 将 执行 Statementl1， 否 则 将 执行 
Statement2。 例如 以 下 代码 为 下 .Then...Else 语句 的 实例 。 该 实例 判断 输入 的 字符 串 是 否 包 
含 “@” 字 符 ， 若 包含 则 给 出 包含 字符 的 提示 ， 反 之 则 给 出 不 包含 字符 的 提示 。 

IInStrO 函 数 判 断 输 入 的 字符 串 是 否 包含 @ 字 符 ， 若 包含 ， 返 回 的 值 是 @ 字 符 在 字符 串 中 
"第 一 次 出 现 的 位 置 
If InStr(Request.Form("str")."@")<=0 Then 
' 不 包含 ， 给 出 提示 
Response.Write("<script>alert(' 输 入 的 字符 串 中 不 包含 @ 字 符 ')</script>") 
Else "包含 ， 给 出 提示 
Response.Write("<script>alert( 输 入 的 字符 串 中 包含 @ 字 符 ")</script>") 

EndIf 

End If 


3.7.3 Select Case 语句 


Select Case 语句 是 下 语句 多 条 件 时 的 另 一 种 表 式 ， 可 在 多 个 执行 语句 中 有 选择 地 执行 
其 中 的 一 个 。 它 的 优点 是 可 使 程序 更 简洁 易 读 ， 其 语法 结构 如 下 : 


Select Case 表达 式 

Case 结果 1 
Statement1( 语 句 块 1) 

Case 结果 2 
Statement2( 语 句 块 2) 


Case 结果 n 
StatementN( 语 句 块 N) 
Case Else 
StatementN+1( 语 句 块 N+1) 
End Select 
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VBScript 首先 对 表达 式 进 行 运算 ， 这 个 运算 可 以 为 数值 运算 或 字符 串 运算 ， 然 后 将 运 
算 结果 依次 与 结果 1 到 结果 n 作 比 较 ， 当 找到 与 计算 结果 相等 的 结果 时 就 执行 该 语句 ， 执 
行 完 毕 后 就 跳出 Select Case 语 句 。 而 当 运 算 结果 与 所 有 的 结果 都 不 相等 时 , 就 执行 Case Else 
后 面 的 执行 语句 n+1。 

【 例 3-2】Select Case 语句 设计 一 个 程序 运行 效果 如 图 3-3 所 示 的 网 页 ， 该 网 页 会 根据 用 
户 的 选择 设置 页 面 背 景 。 

(1) 启动 Windows 系统 自 带 的 记事 本 工具 后 ， 输 入 以 下 代码 : 

<Html> 


<Script Language="VBScript" >' 指定 下 面 语句 所 采用 的 脚本 语言 为 VBScript 
Dim strColor 定义 一 个 存放 颜色 的 变量 strColor 

strColor=inputbox(" 请 从 red、green、blue 中 选择 一 个 ， 并 输入 作为 页 面 背景 色 ! ") 
Select Case strColor 


Case "red" document.bgColor = "red" "如 strColor 值 为 red， 设 置 页 面 背 景 为 红色 
Case "green" document.bgColor = "green” “如 strColor 值 为 green， 设 置 页 面 背景 为 绿色 
Case "blue" document.bgColor = "blue" ' 如 strColor 值 为 blue， 设 置 页 面 背景 为 蓝 色 
Case Else MsgBox "输入 有 误 ” ' 如 果 不 是 上 面 三 种 颜色 ， 则 提示 "输入 有 误 " 

End Select 

</Script> 

</Body></Html> 


(2) 选择 “文件 "| “另存 为 ”命令 , 打开 “另存 为 ”对 话 框 , 将 以 上 代码 保存 为 test20.asp。 
(3) 运行 test20.asp 后 (利用 本 书 第 1 章 架 设 的 ASP 网 站 ) 的 效果 将 如 图 3-11 所 示 。 


TE -lo 过 
SO /i |) | 
文件 中 靖 属国 查看 久 收藏 严 人 ) 工具 CY) 惠 助 0 
社员 刻下 tost20 


[| 所 -| 下 10% ” [i | | et | 而 -JRio0w - 记 


3-11 ”Select Case 语句 应 用 实例 


3.8 ”循环 语句 


循环 语句 的 作用 是 重复 执行 程序 代码 。 循 环 可 分 为 以 下 三 类 : 
。 在 条 件 变 为 “ 假 ”之 前 重复 执行 语句 。 
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e 在 条 件 变 为 “ 真 ”之 前 重复 执行 语句 。 

e 按照 指定 的 次 数 重复 执行 语句 。 

在 VBScript 中 ， 用 户 可 以 使 用 Do...Loop 语句 、While...Wend 语句 、For...Next 语句 、 
For Each...Next 语句 以 及 Exit 语句 等 5 种 循环 语句 。 


3.8.1 Do...Loop 语句 


Ll 
旺 


Do...Loop 循环 是 一 种 条 件 型 的 循环 ， 当 条 件 为 True 时 或 条 件 变 为 True 之 前 , 重复 执 
行 语 句 块 ， 该 循环 共有 3 种 形式 。 
形式 1: 
Do While 条 件 表 达 式 
Statement( 语 句 块 ) 
Loop 
VBScript 首先 检查 条 件 表达 式 的 值 是 否 为 True, 如 果 为 True 才 会 进入 循环 中 执行 语句 。 
另外 ， 也 可 以 对 语句 顺序 进行 一 下 调整 ， 使 它 先进 入 循环 执行 一 次 后 再 对 条 件 进 行 判断 。 


形式 2: 
Do 
Statement( 语 句 块 ) 


Loop While 条 件 表达 式 
如 果 把 Do 循环 中 的 While 换 为 Until， 则 程序 的 运行 过 程 和 前 面 类 似 。 不 同 的 是 ， 只 
要 条 件 为 False 就 执行 循环 。 
形式 3: 
Do 
Statement( 语 句 块 ) 
Loop Until 条 件 表达 式 
注意 : 
Do...Loop 循环 语句 中 可 以 使 用 Exit Do 语句 强行 中 止 循环 。 


【 例 3-3】 利 用 Do.….Loop 循环 语句 ， 创 建 一 个 可 以 显示 循环 语句 的 执行 过 程 的 程序 ， 
运行 结果 如 图 3-12 所 示 。 
(1) 启动 Windows 系统 自 带 的 记事 本 工具 后 ， 输 入 以 下 代码 : 

<% 

intNum=1 

Do While intNum<7 
Response.Write "循环 语句 正在 执行 第 "&intNum&" 次 循环 " 
Response.Write "<br>" ' 在 屏幕 上 输出 一 个 回 车 
intNum=intNum+1 

Loop 

%> 
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(2) 选择 “文件 "| “另存 为 ” 命令 , 打开 “另存 为 "对 话 框 , 将 以 上 代码 保存 为 test21.asp。 
(3) 运行 test21.asp 后 的 结果 如 图 3-12 所 示 。 

[Ettp: /fecalhos feestor = >I] 
ee 7 les 
文件 下。 编辑 邓 ) 查看 名 收 丫 夹 代 ) 工具 开交 
过 人 后 wermoeaevt | | 全 


循环 语句 正在 执行 第 1 次 循环 EE 


全 全 在 执 生来 5 公信 


悦 加 
ner EE Er 


图 3-12 Do...Loop 语句 应 用 实例 


3.8.2 ”For Each...Next 语句 


For Each...Next veg lp me rod 执行 循环 的 次 
数 不 再 需要 指定 ， 只 要 有 一 个 元 素 就 循环 一 次 。 其 语法 结构 如 下 : 
For Each 元 素 In 集合 


Statement( 语 句 块 ) 
Next 


如 果 不 知道 集合 中 有 多 少 个 元 素 ， 则 用 For Each 循环 非常 方便 。 如 下 例 可 列举 使 用 
HTML 表单 提交 的 所 有 数值 : 
<% 
For Each item In Request.Form 
Response.Write Request.Form(item) 
Next 
%> 


注意 : 
For 循环 语句 中 可 以 使 用 Exit For 语句 强行 中 止 循 环 。 


3.8.3 ”For...Next 语句 


For...Next 循环 语句 是 一 种 强制 性 的 循环 , 用 于 将 循环 体 运行 指定 的 次 数 。 在 For 循环 
中 有 一 个 计数 器 变量 ， 每 重复 一 次 循环 ， 该 变量 的 值 都 会 增加 或 减少 。 其 语法 结构 如 下 : 


For 循环 变量 = 初始 值 To 结束 值 [Step 步 长 值 ] 
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执行 语句 
Next 
For...Next 循环 语句 的 执行 步骤 如 下 。 
(1) 将 循环 变量 设 为 初始 值 。 
(2) 测试 循环 变量 是 否 大 于 结束 值 。 若 是 ， 则 退出 循环 ( 若 步 长 值 为 负 ， 则 测试 循环 变 
量 是 否 小 于 结束 值 )， 否 则 执行 循环 中 的 语句 。 
(3) 执行 语句 运行 完毕 到 Next 语句 时 ，VBScript 将 循环 变量 值 与 步 长 值 相 加 。 
(4) 从 Next 语句 跳 转 到 For 语句 继续 执行 。 


注意 : 
如 果 省 略 Step 子 句 ， 那 么 步 长 的 默认 值 是 1。 


【 例 3-4】 利 用 For...Next 循环 语句 , 创建 一 个 可 以 求 出 1 到 100 之 间 奇 数 的 和 并 显示 
的 网 页 程序 ， 运 行 结果 如 图 3-13 所 示 。 
(1) 创建 一 个 名 称 为 test22.asp 的 网 页 ， 其 代码 如 下 所 示 : 


<% 
Dim intNum.i,intSum 
intNum=1 
intSum=0 
For [=1 To 100 Step 2 
Response.Write "循环 语句 正在 执行 第 "&intNum&" 饥 循环 "&"<br>" 
Response.Write "第 "&intNum&" 个 欲 相 加 的 工 值 为 "&i&"<br>" 
Response. Write "SUM="&intSum&"+"&i&"="&intSum+i&"<br>" 
intSum=intSum+i 
intNum=intNum+1 
Next 
%> 


(2) 运行 test22.asp 后 的 结果 将 如 图 3-13 所 示 。 


rr 
ELON OT RT SE 
伪 吓 语句 正在 执行 第 2 注 依 环 
[Bim intmen, ,intSum 划 2 个 赤 由 加 的 1 值 为 3 
+ Eerie 
全民 直 和 间作 中 
和 人 
卫生 句 正在 执行 第 himtmne 滑 博 环 "nchr > 2 
“nthomt” 个 县 相 加 的 1 信 为 it"cor)” 于 
ae gs 
3 
本 
2 
g 于 
和 
mer 3 


图 3-13 For...Next 语句 应 用 实例 
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3.8.4 While...Wend 语句 


While...Wend 语句 在 条 件 为 True 时 重复 操作 。 其 语法 格式 如 下 : 


While condition 
Statement 
Wend 


当 condition 为 True 时 ， 执 行 Statement， 否 则 退出 循环 。 

以 下 代码 为 一 个 While.…Wend 语句 实例 程序 ， 在 该 程序 中 While.…Wend 语句 循环 判 
断 输入 的 每 一 个 字符 是 否 属于 26 个 英文 字母 , 若 输入 存在 非 英文 字母 , 则 弹出 提示 对 话 框 ， 
给 出 相应 的 文字 提示 。 


<% 

Function CheckLetter(str) 'str 为 要 检测 的 字符 串 
CheckLetter=True "初始 化 
Letters="ABCDEFGHIJKLMNOPQRSTUVWXYZ" "初始 化 
for i=1 to len(str) "en 函数 返回 字符 串 长 度 
"Mid(str,i.1) 返 回 字符 串 str 第 i 个 字符 ，UCase 函数 将 该 字符 转换 为 大 写 形式 
checkchar=UCase(Mid(str.i.1)) 

If (InStr(Letters,checkchar)<=0) Then  _'checkchar 在 Letters 中 不 存在 
CheckLetter=False 
Exit Function "跳出 Function 过 程 
End If 
Next "结束 For 循环 
End Function 
%> 
<html> 
<head> 
<title>test23.asp</title> 
</head> 
<body> 


<form method="POST" action="test23.asp" name = forml> 
<p align="center"> 请 输入 字符 串 : <input type="text" name="string" size="20" 
value=<%=Request.Form("string")%>></p> 

<p align="center"><input type="submit" value=" 确 定 " name="submit"></p> 


</form> 
<% 
Jf Request.Form("submit")=" 确 定 " Then 
str=Request.Form("string") "' 读 取 输 入 的 字符 串 
Letters="ABCDEFGHIJKLMNOPQRSTUVWXYZ"” 初始 化 
length=Len(str) "输入 的 字符 串 的 长 度 


和 1 "初始 化 变量 
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While i<length+1 "While 循环 
"Mid(str.i.1) 返 回 字符 串 str 第 i 个 字符 ，UCase 函数 将 该 字符 转换 为 大 写 
形式 


checkchar = UCase(Mid(str.i.1)) 
If (InStr(Letters.checkchar)<=0) Then  'checkchar 在 Letters 中 不 存在 


"给 出 提示 
Response.Write("<script>alert( 输 入 的 字符 串 中 存在 非 字母 ')</script>") 
Response.End "结束 ASP 文件 的 执行 
EndIf 
i=i+l 
Wend ' 结 束 While 循环 
EndIf 


%> 
</lbody> 


将 以 上 代码 保存 (test23.asp) 并 运行 后 的 结果 如 图 3-14 左 图 所 示 ， 当 在 窗口 中 的 文本 框 
中 输入 包含 非 字母 的 字符 时 (例如 输入 “length=Len(str)”), 浏览 器 将 打开 如 图 3-14 右 图 所 
示 对 话 框 。 


Ee 
请 答 入 字符 帅 ， [iaasEIRGEG 一 
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3-14 While.…Wend 语句 应 用 实例 


注意 : 
While.…Wend 语 名 是 为 熟悉 其 用 法 的 用 户 提供 的 ,由 于 While..….Wend 语 名 灵活 性 较 差 ， 
一 般 用 户 可 以 使 用 Do...Loop 语句 代替 。 


3.8.5 ”Exit 语句 


Exit 语句 可 以 强迫 程序 离开 Do 循环 、For 循环 、Function 过 程 与 Sub 过 程 等 代码 段 。 
其 语法 格式 如 下 : 


Exit Do "强制 离开 Do 循环 

Exit For "强制 离开 For 循环 

Exit Function "强制 离开 Function 过 程 
Exit Sub "强制 离开 Sub 过 程 


其 中 ，Exit Do 语句 用 于 退出 Do...Loop 循环 ，Exit For 语句 用 于 在 计数 器 达到 其 终止 
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值 之 前 退出 For...Next 语句 。 因 为 通常 只 有 在 某 些 特殊 情况 下 才 要 强制 退出 循环 (例如 退出 
死 循环 )， 所 以 用 户 可 以 在 下 ..Then...Else 语句 的 True 语句 块 中 使 用 Exit 语句 ( 若 条 件 为 
False 循环 将 照常 运行 )。 

以 下 代码 程序 在 For each 循环 中 ， 当 输入 的 邮件 地 址 格式 错误 时 ， 使 用 Response.End 
语句 结束 当前 ASP 文件 的 执行 ， 用 户 也 可 以 使 用 Exit 语句 直接 跳出 For each 循环 。 代 码 
如 下 : 


<html> 

email=Request.Form("Email") ' 读 取 输 入 的 字符 串 

names=Split(email."(@") 

ff UBound(names)<—>1 Then "UBound 函数 返回 数组 的 最 大 下 标 
Response.Write("<script>alert(' 邮 件 格式 错误 ! )</scripP>") “给 出 提示 
Response End "结束 运行 ASP 程序 

EndIf 

For each name in names For each 循环 语句 
IfLen(name)<=0 Then Len 函数 获得 字符 串 的 长 度 


Response.Write("<script>alert( 邮 件 格 式 错误 ! ')</script>") 
字符 串 长 度 小 于 等 于 0， 则 给 出 提示 
Response End "结束 运行 ASP 程序 
EndIf 
Next 
EndIf 


</html> 


将 以 上 代码 保存 (test24.asp) 并 执行 后 ， 结 果 如 图 3-15 所 示 ， 若 用 户 在 浏览 器 窗口 中 的 
文本 框 内 输入 错误 的 电子 邮件 地 址 (例如 miaofa@)， 将 弹出 提示 对 话 框 。 
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到 加 
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图 3-15 Exit 语句 应 用 实例 


3.9 VBScript 中 的 过 程 


过 程 是 用 来 执行 特定 任务 的 独立 程序 代码 。 使 用 过 程 ， 可 以 将 程序 划分 成 一 个 个 较 小 
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的 逻辑 单元 ， 过 程 中 的 代码 能 够 被 反复 调用 ， 这 样 可 以 减少 不 必要 的 重复 。 可 以 将 过 程 定 
义 放 在 调用 该 过 程 的 同一 个 ASP 文件 中 ， 也 可 以 将 常用 过 程 放 在 共享 的 文件 中 ， 并 使 用 
#include 命令 将 该 文件 包含 在 调用 过 程 的 ASP 文件 中 。 

VBScript 根据 是 否 返回 值 将 过 程 划 分 为 Sub 过 程 ( 子 过程 ) 和 Function 过 程 (函数 ) 两 种 。 
Sub 过 程 只 执行 程序 而 不 返回 值 ， 因 而 不 能 用 于 表达 式 中 ， 而 Function 函数 可 以 将 执行 代 
码 后 的 结果 返回 给 请 求 程序 。 


3.9.1 Sub 过 程 


Sub 过 程 是 一 种 可 以 获取 参数 ， 执 行 一 系列 语句 以 及 可 改变 其 参数 的 值 的 独立 过 程 。 
Sub 过 程 可 以 使 用 参数 ， 如 调用 过 程 传递 的 常数 、 变 量 或 表达 式 ， 用 于 在 调用 过 程 和 被 调 
用 过 程 之 间 传 递 信息 。 如 果 Sub 过 程 无 任何 参数 ， 则 Sub 语句 必须 包含 空 括号 0。 其 语法 
结构 如 下 : 

Sub 子 程序 名 (参数 1, 参 数 2…) 


End Sub 
定义 一 个 Sub 过 程 后 ， 就 可 以 在 程序 代码 中 调用 它 。Sub 过 程 的 调用 有 两 种 方式 。 
种 是 使 用 Call 语句 ， 它 要 求 将 所 有 参数 包含 在 括号 之 中 。 其 语法 结构 如 下 : 
Call 子 程序 名 (参数 1, 参 数 2…) 
另 一 种 是 直接 使 用 子 过 程 名 ， 只 须 输入 过 程 名 及 所 有 参数 值 ， 参 数值 之 间 使 用 逗号 分 
隔 。 其 语法 结构 如 下 : 
子 过 程 名 (参数 1. 参 数 2…) 
注意 : 
使 用 Exit Sub 语句 可 以 立即 从 Sub 过 程 中 退出 ， 程 序 继续 执行 调用 Sub 过 程 的 语 
身 之 后 的 语句 ， 在 Sub 过 程 中 任意 位 置 可 以 出 现任 意 个 Exit Sub 语句 。 
【 例 3-5】 建 立 一 个 可 将 参数 在 弹出 式 信息 对 话 框 显示 的 Sub 过 程 ， 并 在 程序 中 多 次 调 
用 它 ， 程 序 运行 结果 如 图 3-16 所 示 。 


Mt pF | Mt ED 
[ea oe es x fe GO le .sel|ixls: 
文件 四 蝎 强 加 查看 各 收藏 天 @) 工具 他 文件 们 ” 罗 镶 如 查 春 0 收藏 天 个) 工具 CU) * 
府中 二 天 Ohttp://locdhost/te. | | 全 > RR Ohttp: /locdhos te | | 全 


第 一 次 调用 过 程 再 试 一 次 调用 过 程 
蕊 as] 确定 一 
| et 隔 * [本 ”用 EE [0% 4 


图 3-16 将 参数 作为 信息 弹出 
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(1) 创建 一 个 名 称 为 test25.asp 的 网 页 ， 其 代码 如 下 所 示 : 
<ScriptLanguage="VBScript" > 
Call output(" 第 一 次 调用 过 程 ") 
output "再 试 一 次 调用 过 程 " 


Sub output(strText) 
MsgBox strText 

End Sub 

</Script> 


(2) 运行 test25.asp 后 的 效果 将 如 图 3-16 所 示 。 


在 Sub 过 程 中 使 用 的 变量 分 为 两 类 : 一 类 是 在 过 程 内 显 式 声明 的 ， 另 一 类 则 不 是 。 
在 过 程 内 显 式 声明 的 变量 (使 用 Dim 或 等 效 方法 ) 总 是 局 部 变量 , 对 于 那些 没有 在 过 程 中 显 
式 声明 的 变量 也 是 局 部 的 ， 除 非 在 该 过 程 外 更 高 级 别 的 位 置 显 式 地 声明 它们 。 


3.9.2 ”Function 过 程 


函数 和 子 过 程 一 样 ， 也 是 用 来 完成 特定 功能 的 独立 的 程序 代码 ， 可 以 读 取 参 数 、 执 行 
-系列 语句 并 改变 参数 的 值 。 但 函数 有 一 个 最 重要 的 特点 ， 就 是 调用 时 将 返回 一 个 值 。 函 
数 的 语法 结构 如 下 : 
Function 函数 名 (参数 1, 参 数 2.…) 
Statement( 语 句 块 ) 


函数 名 = 表达 式 
Statement( 语 句 块 ) 
End Function 


与 Sub 过 程 类 似 ， 其 中 “参数 1, 参 数 2…” 是 指 调用 时 传递 的 常数 、 变 量 或 表达 式 ， 
如 果 无 任何 参数 ， 则 Function 语句 必须 使 用 空 插 号。 与 Sub 过 程 不 同 的 是 ，Function 函数 
通过 函数 名 返回 一 个 值 ， 这 个 值 是 在 函数 体 中 赋 给 函数 名 的 ，Function 返回 值 的 数据 类 型 
是 Variant。 

“函数 名 = 表达 式 ” 用 于 为 函数 设置 返回 值 ， 该 值 将 返回 给 调用 的 语句 ， 函 数 中 至 少 
要 含有 一 条 这 样 的 语句 。 

Function 函数 只 有 通过 直接 引用 函数 名 实现 函数 的 调用 ， 而 且 函 数 名 必须 用 在 变量 赋 
值 语句 的 右 端 或 表达 式 中 。 调 用 函数 时 ， 参 数 要 放 在 一 对 括号 中 ， 这 样 就 可 以 将 它们 和 表 
达 式 的 其 他 部 分 分 开 。 例 如 : 

temp = Celsius(60) 
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注意 : 
使 用 Exit Function 语句 可 以 从 Function 过 程 中 立即 退出 ,程序 继续 执行 调用 Function 
过 程 语句 之 后 的 语句 ， 但 执行 前 必须 为 函数 赋值 ， 否 则 就 会 出 错 。 在 Function 过 程 的 任 
意 位 置 可 以 出 现任 意 个 Exit Function 语句 。 
【 例 3-6】 创建 一 个 函数 ， 将 华氏 温度 换算 为 摄氏 温度 ， 程 序 运行 结果 如 图 3-17 所 示 。 
(1) 创建 一 个 名 称 为 test26.asp 的 网 页 ， 其 代码 如 下 所 示 : 
<Script Language="VBScript" > 
temp = InputBox(" 请 输入 华氏 温度 。", 1) 
MsgBox "温度 为 " & Celsius(temp) & "摄氏度 。" 
Function Celsius(fDegrees) 
Celsius = (fDegrees - 32)* 5/9 
End Function 
</Scrip> 


(2) 运行 test26.asp 后 的 结果 将 如 图 3-17 所 示 。 
et .| 
Sos. Hal :| 
光 陡 如 炳 旺 则 ”这 告 WD 哺 磺 天 加 工具 如 囊 尖 姑 于 看 (WO 二 障 枯 信 工具 D 亲 刚 徊 
EYE 二 Oriaoeakeaute ,| | 全 -一 


T 厅 厅 万 站 网 Renw | 
(a) 输入 华氏 温度 (b) 得 到 摄氏 温度 
图 3-17 华氏 温度 换算 为 摄氏 度 


3.9.3 ” 按 地 址 传递 与 按 值 传递 


默认 情况 下 ， 参 数 按 地 址 传递 ， 即 过 程 按 变 量 的 内 存 地 址 去 访问 实际 变量 的 内 容 。 这 
样 将 变量 传 给 过 程 时 ， 通 过 过 程 就 可 以 改变 变量 的 值 。 地 址 传递 的 关键 字 为 ByRef。 

另外 ， 传 递 参数 还 可 以 按 数 值 来 传送 。 按 值 传递 参数 时 ， 传 递 的 只 是 变量 的 副本 。 如 果 过 
程 中 改变 了 这 个 值 ， 则 所 做 的 变动 只 影响 副本 而 不 会 影响 到 变量 本 身 。 按 值 传送 的 关键 字 是 
ByVal。 

【 例 3-7】 建 立 两 个 分 别 按 地 址 传递 和 按 值 传递 的 过 程 ， 比 较 其 异同 ， 程 序 运行 的 结果 
如 图 3-18 所 示 。 


(1) 创建 一 个 名 称 为 test27.asp 的 网 页 ， 其 代码 如 下 所 示 : 
<% 
Sub TestByVal(ByVal X) 
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X=X*33 
End Sub 
Sub TestByRef(ByRef X) 
X=X/10 
End Sub 
intNum=60 
Response.Write " 原 测 试 数值 为 "&intNum&"<br>"&"<br>" 
Call TestByVal(intNum) 
Response.Write "使 用 ByVal 关键 字 ， 参 数 按 值 传递 调用 过 程 后 ， 
_ 测 试 变量 的 值 为 "&intNum&"<br>"&"<br" 


Call TestByRef(intNum) 
Response.Write "使 用 ByRef 关键 字 ， 参 数 按 地 址 传递 调用 过 程 后 ， 
_ 测 试 变 量 的 值 为 "&intNum 
%> 
© 运行 test27.asp 后 的 结果 将 如 图 3-18 所 示 。 
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图 3-18 ”参数 按 地 址 传递 和 按 值 传递 


注意 : 
从 上 例 的 运行 结果 可 看 出 ， 按 值 传递 后 ， 变 量 intVar 的 值 保持 不 变 ， 仍 为 60; 而 按 地 
址 传递 后 ， 值 将 变 为 6。 


3.9.4 数组 参数 


数组 作为 参数 传递 时 ， 与 普通 参数 有 些 不 同 。 在 过 程 中 声明 数组 参数 时 ， 必 须 略 去 数 
组 的 长 度 ， 即 设置 一 个 动态 数组 。 在 调用 语句 中 ， 只 须 给 出 要 传递 的 数组 名 即 可 ， 不 必 包 
括 数组 的 下 标 及 圆 括号 。 

【 例 3-8】 用 产生 随机 数 的 方法 给 一 个 数组 赋值 ， 并 调用 过 程 来 将 其 中 的 元 素 按 从 小 到 
大 的 顺序 排序 ， 程 序 运行 结果 如 图 3-19 所 示 。 

(1) 创建 一 个 名 称 为 test28.asp 的 网 页 ， 其 代码 如 下 所 示 : 
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<% 
Sub Sort (arr0.armum) 
Dim IJintTemp 
For 二 0 to armum 
For J=0 to armum 
Ifarr(D>ar()) Then 
intTemp=ar(D 
ar(D=ar() 
ar(D=intTemp 
EndIf 
Next 
Next 
End Sub 


Dim arrTest(9).I 

ForI=0to9 
arrTest(D=Int(RndO*100+1) 

Next 

Sort arrTest.9 

For I=0 To9 
Response.Write arrTest(D&"<br>" 

Next 

%> 


(2) 运行 test28.asp 后 的 结果 ， 如 图 3-19 所 示 。 
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Response -write arrTest(Dareary” 
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图 3-19 将 参数 作为 信息 弹出 


3.10 VBScript 函数 


VBScript 把 一 些 最 常 使 用 的 功能 整理 起 来 ， 编 制 好 了 相应 的 处 理 程序 ， 将 它们 以 函数 
的 形式 提供 使 用 。 恰 当地 使 用 函数 可 以 节省 大 量 的 时 间 ， 表 3-6 对 VBScript 提供 的 函数 做 
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了 概括 。 
表 3-6 VBScript 函数 概括 
函数 说 明 

Abs 返回 一 个 数 的 绝对 值 ， 如 Abs( - D 和 Abs(1) 都 返回 1 

Array 返回 一 个 Variant 值 ， 其 中 包含 一 个 数组 

Asc 返回 与 字符 串 的 第 一 个 字母 相关 的 ANSI 字符 编码 ， 如 Asc("Body" 返 回 66 

Am 返回 一 个 数 的 反正 切 值 。 如 4*Atn(1) 得 到 的 值 3.141 592 653 589 79 

ec 计算 表达 式 的 布尔 值 。 如 果 表达 式 的 值 为 0， 则 返回 False， 否 则 返回 True。 
例如 ，CBool(9) 返 回 Tme 

CByte 将 表达 式 转换 为 Byte 子 类 型 ， 如 CByte(45.678 9) 返 回 46 

CCur 将 表达 式 转换 为 Currency 子 类 型 ， 如 CCur(123.456 789) 返 回 123.456 8 

CDate 将 表达 式 转换 为 Date 子 类 型 ， 如 CDate("July 21.2011") 返 回 2011-7-21 

CDbl 将 表达 式 转换 为 Double 子 类 型 

Chr 返回 与 指定 的 ASCI 字符 代码 相对 应 的 字符 ， 如 Chr(66) 返 回 B 

CInt 将 表达 式 转换 为 Integer 子 类 型 ， 如 CInt(456.78) 返 回 457 

CLng 将 表达 式 转换 为 Long 子 类 型 ， 如 CLng(123 456.78) 返 回 123 457 

Cos 返回 某 个 角 的 余弦 值 

CreateObject 创建 并 返回 对 象 实例 。 注 意 ， 在 ASP 中 不 要 用 该 函数 来 创建 对 象 实例 

CSan 将 表达 式 转换 为 Single 子 类 型 

CS 将 表达 式 转换 为 String 子 类 型 ， 如 str=CStr(87.65)， 则 str 值 为 字符 串 "87.65" 

Date 返回 当前 系统 日 期 

Sn 返回 已 添加 指定 时 间 间 隔 的 日 期 , 如 DateAdd("m".2."21-July-2011") 将 2011 年 
7 月 21 日 加 两 个 月 ， 得 到 2011-9-21 

DateDiff 返回 两 个 日 期 间 的 时 间 间 隔 ， 如 DateDifft"d","21-7-2011""23-7-2011") 将 返回 2 

DatePart 返回 给 定 日 期 的 指定 部 分 ， 如 DatePart("yyyy"."21-July-2011") 返 回 2011 
使 用 指定 的 年 、 月 、 日 返回 Date 子 类 型 ， 如 DateSerial(1996-10.8-2.1-1) 将 返 

DateSerial 回 1986.531 

DateValue 返回 Date 子 类 型 ， 如 DateValue("September 11.1963") 将 返回 1963-9-11 

Day 返回 1~31 之 间 的 一 个 整数 , 表示 某 月 中 的 一 天 ， 如 Day("July 21.2011") 将 返回 21 

Eval 计算 一 个 表达 式 的 值 并 返回 结果 

Exp 返回 e( 自 然 对 数 的 底 ) 的 罕 次 方 

Filter 返回 下 标 从 零 开 始 的 数组 ， 包 含 基于 特定 过 滤 条 件 的 字符 串 数组 的 子 集 
返回 数字 的 整数 部 分 ，Int 和 Fix 的 区 别 在 于 : 如 果 参 数 为 负数 ， 则 Int 返回 小 

Int、Fix 于 或 等 于 参数 的 第 一 个 负 整数 ， 而 Fix 返回 大 于 或 等 于 参数 的 第 一 个 负 整 数 。 
例如 ，Int( - 6.4) 将 返回 -~ 7， 而 Fix( - 6.4) 将 返回 - 6 
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( 续 表 ) 
函数 说 明 
返回 一 个 表达 式 ， 该 表达 式 被 格式 化 为 货币 值 (使 用 系统 控制 面板 中 定义 的 货 
FormatCurrency 币 符号 ) 。 例 如 ， 当 系统 控制 面板 中 定义 的 货币 符号 是 人 民 币 符号 时 ， 
FormatCurency(2000) 将 返回 六 2000.00 
格式 化 日 期 和 时 间 。 例 如 ，FomatDateTime(Now.0) 返 回 值 为 2011-7-15 
Rom ome ne 11:25:45， 而 FormatDateTime(Now.1) 返 回 值 为 2011 年 7 月 15 日 
格式 化 一 个 数值 。 例 如 ,FormatNumber(1233.4567.2) 返 回 值 为 带 两 位 小 数 点 的 
FormatNumber 数 1233.46，FormatNumber( - 0.1234.3.-1) 返 回 值 为 - 0.123( 含 小 数 点 前 的 0)， 
而 FormatNumber( - 0.1234.3.0) 返 回 值 为 -.123( 不 含 小 数 点 前 的 0) 
FormatPercent 格式 化 为 以 % 符 号 结尾 的 百分比 格式 ， 如 FormatPercent(2/32) 返 回 6.25% 
i 访问 文件 中 的 自动 化 对 象 ， 并 将 该 对 象 赋 给 对 象 变量 。 注 意 ， 在 ASP 中 不 要 
用 该 函数 来 创建 对 象 实例 
Hex 返回 表示 十 六 进 制 数字 值 的 字符 串 ， 如 Hex(459) 返 回 "1CB" 
Hour 返回 0~23 之 间 的 一 个 整数 ， 表 示 一 天 中 的 某 一 小 时 
InpuBox 显示 一 个 输入 框 ， 提 示 用 户 输入 一 个 数据 
InStr 返回 某 字符 串 在 另 一 字符 串 中 第 一 次 出 现 的 位 置 
InStrRev 返回 某 字符 串 在 另 一 个 字符 串 中 出 现 的 从 结尾 计 起 的 位 置 
IsArray 返回 布尔 值 ， 确 定 一 个 变量 是 否 为 数组 
IsDate 返回 布尔 值 ， 确 定 表达 式 是 否 可 以 转换 为 日 期 
IsEmpty 返回 布尔 值 ， 确 定 一 个 变量 是 否 为 空 
IsNull 返回 布尔 值 ， 确 定 一 个 表达 式 是 否 包含 无 效 的 数据 
ISNumeric 返回 布尔 值 ， 确 定 一 个 表达 式 是 否 为 数字 
IsObject 返回 布尔 值 ， 确 定 一 个 表达 式 是 否 引 用 了 有 效 的 对 象 
Join 将 数组 中 的 多 个 子 字符 串 合成 一 个 字符 串 
LBound 返回 数组 某 一 维 的 下 界 
LCase 返回 字符 串 的 小 写 形式 
Left 返回 指定 数目 的 从 字符 串 的 左边 算 起 的 字符 
Len 返回 字符 串 内 字符 的 数目 
返回 图 片 对 象 。 可 以 由 LoadPicture 识别 的 图 形 格式 有 位 图 文件 (.bmp)、 图 标 
LoadPicture 文件 (ico)、 行 程 编码 文件 (Crle)、 图 元 文件 .wmD、 增 强 型 图 元 文件 LemD、GIF 
文件 (.gi 人 和 JPEG 文件 (jpg) 
Log 返回 数值 的 自然 对 数 
Ltrim、Rtrim 和 
i 截 去 字符 串 中 的 前 导 空 格 (Ltrim)、 后 续 空格 (Rtrim) 或 前 导 与 后 续 空格 (Trim) 
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( 续 表 ) 
函数 说 了 明 
Mid 从 字符 串 中 返回 指定 数目 的 字符 
Minute 返回 0~59 之 间 的 一 个 整数 ， 表 示 一 小 时 内 的 某 一 分 钟 
Month 返回 1~12 之 间 的 一 个 整数 ， 表 示 一 年 中 的 某 月 
MonthName 返回 代表 指定 月 份 的 字符 串 
MsgBox 显示 一 个 信息 对 话 框 
Now 根据 计算 机 系统 设 定 的 日 期 和 时 间 返 回 当前 的 日 期 和 时 间 值 
Oct 返回 表示 数字 八进制 值 的 字符 串 ， 如 Oct(8) 返 回 10 
Replace 将 字符 串 内 的 子 字符 串 蔡 换 为 指定 的 串 
RGB 返回 代表 RGB 颜色 值 的 整数 
Right 从 字符 串 右边 返回 指定 数目 的 字符 
Rnd 返回 一 个 随机 数 
Round 返回 按 指定 位 数 进行 四 合 五 入 的 数值 ， 如 Round(3.141 59.2) 返 回 3.14 
ScriptEngine 返回 一 个 代表 当前 使 用 的 脚本 程序 语言 的 字符 串 
Second 返回 0~59 之 间 的 一 个 整数 ， 表 示 一 分 钟 内 的 某 一 秒 
Sen 返回 表示 数字 符号 的 整数 ， 如 Sgn(2) 返 回 1，Sgn(0) 返 回 0， Sgn( - 3) 返 回 -1 
Sin 返回 一 个 角度 的 正弦 值 
Space 返回 由 指定 数目 的 空格 组 成 的 字符 串 
Split 返回 基于 0 的 一 维 数组 ， 其 中 包含 指定 数目 的 子 字符 串 
Sqr 返回 数值 的 平方 根 
StrComp 比较 两 个 字符 串 ， 并 返回 比较 结果 
String 返回 指定 长 度 的 、 重 复 字 符 组 成 的 字符 串 ， 如 String(3, "B") 返 回 "BBB" 
StrReverse 将 字符 串 按 反 序 排列 输出 
Tan 返回 一 个 角度 的 正切 值 
Time 返回 目前 的 系统 时 间 
Timer 返回 午夜 12 时 以 后 已 经 过 去 的 秒 数 
TimeSerial 返回 包含 指定 时 、 分 、 秒 的 时 间 ， 如 TimeSerial(12 - 6. - 15.0) 返 回 5:45:00AM 
TimeValue 返回 包含 时 间 的 Date 子 类 型 
TypeName 返回 一 个 变量 的 子 类 型 信息 
UBound 返回 数组 某 一 维 的 上 界 
UCase 返回 字符 串 的 大 写 形式 
VarType 返回 表示 变量 子 类 型 的 整数 
Weekday 返回 表示 一 星期 中 某 天 的 整数 
WeekdayName 返回 一 个 字符 串 ， 表 示 星 期 中 指定 的 某 一 天 
Year 返回 一 个 代表 某 年 的 整数 
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3.11 习 题 


3.11.1 填空 题 

1. 在 ASP 文件 中 直接 声明 主要 脚本 语言 为 VBScript 的 语句 为 。 

2. VBScript 只 有 一 种 数据 类 型 ， 即 类 型 ， 也 叫做 变 体 类 型 。 

3. VBScript 包括 4 种 类 型 的 运算 符 ， 即 算术 运算 符 、 N 和 过 
辑 运算 符 。 

4. -经 声明 ， 在 程序 执行 期 间 ， 其 值 不 会 发 生 改变 。 

5. VBScript 中 声明 多 个 变量 时 ， 使 用 分 隔 变量 。 

6. 数组 中 的 每 个 元 素 都 用 唯一 的 来 识别 。 
3.11.2 选择 题 

1. 在 一 段 程序 中 a 是 一 个 变量 ， 那 么 "a" 是 ( “)。 

A. 变量 B. 直接 常量 C. 字面 常量 D. 符号 常量 


2. 执行 语句 a="6" 后 ， 变 量 a 的 数据 子 类 型 是 ( “)。 


A. 


字符 串 B. 日 期 C. 数值 D. 布尔 


3. 语句 a="abc"="abc" 运 行 完毕 后 ， 变 量 a 的 数据 子 类 型 是 (。 )。 


A. 


数值 B. 字符 串 C. 布尔 D. 日 期 


4. 已 知 a="ab"， 那 么 执行 语句 b="cd" & a &""&"ef' 后 ， 变 量 b 的 值 是 (  )。 
(提示 : 请 注意 题目 和 答案 中 的 空格 ) 


A. 


3.11.3 


"cd'ab ef" B. "cd'abef" C. "cdabef" D. "cdab ef" 


问答 题 


1. 名 词 解释 : 单 目 运 算 符 、 双 目 运算 符 、 操 作 数 、 函 数 、 子 程序 、 过 程 。 


2. 不 


3.11.4 


在 


同 过 程 中 的 变量 名 是 否 可 以 一 样 ? 
操作 题 


网 页 中 添加 时 间 显 示 信 息 ， 显 示 当 天 的 日 期 、 时 间 及 星期 。 


2. 编写 程序 ， 随 机 产生 一 个 0 一 9 的 整数 。 如 果 是 偶数 ， 则 在 页 面 上 输出 “生成 的 是 


偶数 ”， 否 则 输出 “生成 的 是 奇数 ”。 
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在 ASP 中 , 与 客户 端的 动态 交互 是 通过 Response 和 Request 对 象 实现 的 , 这 两 个 对 象 
起 到 了 服务 器 与 客户 机 之 间 的 信息 传播 作用 。 其 中 Response 对 象 用 于 接受 客户 端 浏览 器 提 
交 的 数据 ， 而 Request 对 和 象 则 用 于 将 服务 端的 数据 发 送 到 客户 端 浏览 器 。 

教学 目标 

通过 对 本 章 的 学 习 ， 读 者 应 了 解 Request 对 象 和 Response 对 象 的 各 种 方法 及 属性 ， 并 
能 够 运用 它们 与 客户 端 浏览 器 进行 信息 交互 。 

教学 重点 与 难点 

e Request 对 象 在 网 页 设计 中 的 应 用 

e@ Response 对 象 在 网 页 设计 中 的 应 用 


4.1 Request 对 象 与 Response 对 象 的 关系 


ASP 提供 了 6 个 内 建 对 象 ， 这 些 对 象 使 用 户 更 容易 收集 通过 浏览 器 请 求 发 送 的 信息 、 
响应 浏览 器 以 及 存储 用 户 信息 。 其 中 ，Request 和 Response 对 象 最 为 重要 ， 它 们 连接 了 服 
务 器 与 客户 机 ， 起 到 信息 传递 作用 。 使 用 Request 对 象 可 以 访问 任何 用 HTTP 请 求 传递 的 
信息 ， 包 括 从 HTML 表格 用 POSTO 方 法 或 GETO 方 法 传递 的 参数 、Cookie 和 用 户 认证 。 
而 Response 对 象 可 控制 发 送 给 用 户 的 信息 , 包括 直接 发 送信 息 给 浏览 器 、 重 定向 浏览 器 到 
男 一 个 URL 或 设置 Cookie 的 值 。 

Request 和 Response 对 象 的 功能 是 相对 的 ， 它 们 结合 在 一 起 ， 便 可 实现 客户 端 Web 页 
面 与 服务 器 端 ASP 文件 之 间 的 数据 交换 ， 其 工作 原理 如 图 4-1 所 示 。 


< 


客户 端 浏览 器 全 全 服务 器 端 


图 4-1 Request 和 Response 对 象 


注意 : 


对 象 一 般 有 方法 、 属 性 、 集 合 和 事件 。 其中， 方法 决定 了 可 以 用 这 个 对 象 做 什么 事情 ， 
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属性 可 以 读 取 对 象 状 态 或 者 设置 对 象 状态 ， 集 合 是 由 很 多 不 同 的 与 对 象 有 关系 的 键 和 值 的 
配对 组 成 的 。 


4.2 Request 对 象 


Request 对 象 用 于 连接 客户 端的 Web 页 Chtml 文件 ) 和 服务 器 端的 Web 页 (asp 文件 )， 
使 它们 之 间 可 以 进行 数据 交换 。Request 对 象 允许 ASP 查询 有 关 与 之 交互 的 客户 程序 信息 ， 
它 代 表 由 客户 程序 发 出 的 HTTP 请 求 报 文 。 


4.2.1 ” Request 对 象 概述 


客户 程序 可 以 用 多 种 方法 将 信息 发 送 到 ASP 文件 ，HTML 文件 、 另 一 个 ASP 文件 或 
ASP 文件 本 身 ， 无 论 用 何 种 方法 来 提交 信息 ， 都 必须 在 ASP 代码 中 使 用 Request 对 象 及 其 
集合 。 下 面 将 介绍 Request 对 象 的 属性 、 方 法 及 集合 。 

1. Request 对 象 的 属性 

表 4-1 所 示 为 Request 对 象 唯 一 的 属性 及 说 明 ， 它 提供 关于 用 户 请 求 的 字 节 数量 的 信 
息 ， 并 很 少 被 用 于 ASP 页 。 

表 4-1 Request 对 象 的 属性 及 说 明 
属 性 说 明 
TotalBytes 只 读 ， 返 回 由 客户 端 发 出 的 请 求 的 整个 字 节 数量 
2. Request 对 象 的 方法 


表 4-2 所 示 为 Request 对 象 唯 一 的 方法 及 说 明 ， 它 允许 访问 从 一 个 <FORM> 段 中 传递 
给 服务 器 的 用 户 请 求 部 分 的 完整 内 容 。 


表 4-2 Request 对 象 的 方法 及 说 明 


当 数 据 作为 POST 请 求 的 一 部 分 发 往 服务 器 时 , 从 客户 请 求 中 获得 count 
字 节 的 数据 ， 返 回 一 个 Variant 数组 (或 者 SafeArray)。 如 果 ASP 代码 已 
经 引用 了 RequestForm 集合 ， 这 个 方法 就 不 能 用 。 同 样 ， 如 果 用 了 
BinaryRead0 方 法 ， 就 不 能 访问 Request.Form 集合 


BinaryRead(count) 


3. Request 对 象 的 集合 


Request 对 象 提供 了 5 个 集合 ， 可 以 用 来 访问 客户 端 对 Web 服务 器 请 求 的 各 类 信息 ， 
具体 说 明 如 表 4-3 所 示 。 
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表 4-3 “Request 对 象 的 集合 及 说 明 


集合 名 称 说 明 
_ 当 客 户 端 访 问 一 个 页 面 或 其 他 资源 时 ， 用 来 向 服务 器 表明 身份 的 客户 证 
ClientCertificate 
书 的 所 有 字段 或 条 目的 数值 集合 ， 每 个 成 员 均 是 只 读 
ookies 根据 用 户 的 请 求 , 用 户 系统 发 出 的 所 有 cookie 的 值 的 集合 , 这 些 Cookie 
仅 对 相应 的 域 有 效 ， 每 个 成 员 均 为 只 读 
二 METHOD 的 属性 值 为 POST 时 ， 所 有 作为 请 求 提交 的 <FORM> 段 中 的 
HTML 控件 单元 的 值 的 集合 ， 每 个 成 员 均 为 只 读 
依附 于 用 户 请 求 的 URL 后 面 的 名 称 / 数 值 或 者 作为 请 求 提 交 的 且 
QueryString METHOD 属性 值 为 GET( 或 者 省 略 其 属性 ) 的 ,或 <FORM> 中 所 有 HTML 
控件 单元 的 值 ， 每 个 成 员 均 为 只 读 
四 随同 客户 端 请 求 发 出 的 HTTP 报头 值 , 以 及 Web 服务 器 的 几 种 环境 变量 
erverVariables 


的 值 的 集合 ， 每 个 成 员 均 为 只 读 
4.2.2 Request 对 象 在 网 页 设计 中 的 应 用 


利用 Request 对 象 可 以 收集 并 处 理 用 户 通 过 HTTP 请 求 传递 的 所 有 信息 , 包括 HTML 
表格 用 POST( 方 法 或 GETO 方 法 传递 的 参数 、Cookie 数据 和 用 户 认 证 等 。Request 对 象 
的 语法 结构 如 下 : 
Request [. 集合 | 属性 | 方法 ]( 变量 ) 
Request 对 象 包含 3 类 成 员 , 分 别 为 集合 、 属 性 和 方法 ， 其 中 集合 包含 了 客户 端的 数据 
内 容 ， 表 4-4 列 出 了 Request 对 象 的 集合 成 员 。Request 对 象 的 属性 与 方法 各 有 一 个 ， 并 在 
ASP 网 页 中 很 少 使 用 ， 所 以 这 里 不 再 进行 说 明 。 


表 4-4 Request 对 象 的 集合 成 员 


集 合 说 明 
Cookies 允许 用 户 检索 在 HTTP 请 求 中 发 送 的 Cookie 的 值 
Form 当 <form> 标 签 的 方法 设 为 POST， 检 索 HTTP 请 求 正 文中 的 表格 元 素 的 值 
leryStrint 检索 HTTP 查询 字符 串 变 量 的 值 ，HTTP 查询 字符 串 由 问号 (? ) 后 的 值 指定 
ServerVariables 客户 端 对 服务 器 提出 请 求 ， 同 时 传送 至 服务 器 的 HTTP 标题 与 服务 器 变量 等 数据 


例如 ， 下 面 的 语句 用 于 从 HTML 表单 中 取得 用 POSTO 方 法 传递 的 UserName 数据 : 
<% strUserName =Request.Form("UserName")%> 
Request 语句 中 的 集合 名 称 也 可 以 省 略 ， 如 上 面 的 语句 也 可 以 写成 以 下 的 形式 : 
<% strUserName =Request ("UserName")%> 
如 果 在 Request 对 象 中 没有 指定 准确 的 集合 名 称 ，ASP 会 自动 搜索 来 确定 数据 的 获取 
方法 。 搜 索 的 顺序 是 QueryString、Form、Cookies 和 ServerVariables，ASP 逐一 检查 是 否 
有 信息 输入 ， 如 果 有 则 会 返回 获得 的 变量 信息 。 
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1. QueryString 集合 读 取 表 单 GET() 方 法 数据 
网 页 中 常 采取 表单 的 形式 与 访问 者 进行 交互 。 用 户 在 表单 中 输入 信息 后 ， 单 击 “ 确 定 ” 
或 “提交 ”按钮 即 可 将 信息 传送 到 服务 器 上 。 服 务 器 可 获取 这 些 信 息 进行 下 一 步 的 处 理 和 
操作 。 在 HTML 中 常见 的 FORM 语句 的 语法 结构 如 下 : 
<Form ”Action= 处 理 程序 的 网 址 ”Method=GetlPost ”Name= 该 FORM 的 名 称 > 


</Form> 


其 中 ，Action 属性 用 于 指定 表单 处 理 程序 的 URL; Method 属性 则 指定 提供 数据 的 方 
法 ， 可 取 值 为 GETO 与 POSTO 方 法 的 其 中 一 个 。 表 单 选 用 GETO 方 法 时 ，ASP 要 使 用 
Request.QueryString 集合 来 读 取 表单 数据 ， 选 用 POSTO 方 法 时 ，ASP 则 使 用 Request.Form 
集合 来 读 取 表单 的 数据 。 

当 HTML 表单 用 GETO 方 法 向 ASP 文件 传递 数据 时 ， 表 单 提交 的 数据 不 是 被 当 作 一 
个 单独 的 包 发 送 ， 而 是 被 附 在 URL 的 查询 字符 串 中 一 起 被 提交 到 服务 器 端 指定 的 文件 中 。 

QueryString 集合 的 功能 就 是 从 查询 字符 串 中 读 取 用 户 提交 的 数据 。 例 如 ， 从 下 面 的 
URL 地 址 信息 中 ，Request.QueryString 可 得 到 stName 和 Title 两 个 变量 的 值 。 

http:/zhangshihua/4-1-login.asp?strName= 赵 刚 &Title=Mr 


注意 了 
查询 字符 串 以 问号 (? ) 开 始 ， 包 含 几 对 字段 名 和 分 配 的 值 。 不 同 的 字段 名 和 值 对 用 多 
符号 连接 。 
【 例 4-1】 使 用 GETO 方 法 传递 图 4-2 所 示 的 HTML 表单 中 的 值 ， 并 将 结果 在 ASP 页 
面 上 显示 出 来 ， 显 示 结 果 如 图 4-3 所 示 。 
(1) 创建 一 个 名 称 为 test29.asp 的 网 页 ， 其 代码 如 下 所 示 : 
<Form Action="login1.asp" Method="Get" Name="login"> 
用 户 名 : <Input Type=text Name=strName > 
<BI><Br> 
性 &nbsp 别 : <Input Name="Title" Type="Radio" Value="Mr" Checked> 先 生 
<Input Name="Title" Type="Radio" Value="Ms"> 女 士 
<Br<Br 
<Input Type="Submit" Value=" 确 认 提交 "> 
<Input Type="Reset" Value=" 重 新 输入 "> 
</Form> 


(2) 创建 表单 信息 结果 的 程序 文件 login1.asp， 其 代码 如 下 所 示 : 


<% 
Dim strName.strTitle 
strName=Request.QueryString("strName") 
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Response.Write" 您 的 用 户 名 为 "&strName 
Response. Write"<br>" 
strTitle=Request.QueryString("Title") 
If strTitle="Mr" Then 
Response.Write" 先 生 ， 您 好 !" 
Else 
Response.Write" 女 士 ， 您 好 !" 
EndIf 
%> 


| | Re ,| | 
习 司 | 
用 户 名 , RE 人 Pt 


性 别 ，@ 先 生 和 女士 
Lae] mw | 


Bi Intrenat a [i 
图 4-2 ”获取 表单 信息 图 4-3 使 用 RequestQueryString 得 到 的 结果 

2. Form 集合 读 取 表单 POST() 方 法 数据 

GET( 方 法 的 优点 是 可 以 方便 地 为 服务 器 端 传递 信息 ， 缺 点 是 不 能 传递 长 而 复杂 的 数 
据 到 服务 器 端 , 否则 会 造成 数据 的 丢失 , 这 是 因为 某 些 服务 器 会 限制 URL 查询 字符 串 的 长 
度 。 因 此 ， 如 果 要 将 表单 中 的 大 量 数据 发 送 到 服务 器 ， 应 使 用 POST( 方 法。 

POST( 方 法 在 HTTP 请 求 体内 发 送 数据 ， 几 乎 不 限制 发 送 到 Web 服务 器 的 数据 长 度 。 
检索 使 用 POSTO 方 法 发 送 的 数据 通常 采用 Request 对 象 的 Form 集合 来 进行 。 

注意 : 

Form 集合 和 Form 表单 的 区 别 是 : Form 表单 是 HTML 提供 的 表单 ， 并 不 是 ASP 特有 


的 ; Form 集合 是 特 指 ASP 的 Request 对 象 获取 信息 的 一 种 方法 。 两 者 的 联系 就 是 ASP 用 
Form 集合 来 获取 Form 表单 中 的 数据 信息 。 


(alialal 


【 例 4-2】 编制 一 个 计算 器 程序 ， 可 使 用 POSTO 方 法 接受 HTML 表单 中 的 数值 和 运算 
符 ， 并 将 正确 的 计算 结果 在 当前 页 面 上 显示 出 来 ， 结 果 如 图 4-4 所 示 。 
(1) 创建 一 个 名 称 为 test30.asp 的 网 页 ， 其 代码 如 下 所 示 : 
<Form Action=test30.asp Method=post> 

操作 数 1: <Input Type=text Name=numl><br> 

操作 数 2: <Input Type=text Name=num2><br> 

<p> 

选择 你 要 进行 的 操作 <br> 
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<Input Type=radio Name=operation Value=" 加 " checked> 加 <br> 
<Input Type=radio Name=operation Value=" 减 "> 减 <br> 
<Input Type=radio Name=operation Value=-" 乘 "> 乘 <br> 
<Input Type=radio Name=operation Value=" 除 "> 除 <br> 
<Input Type=Submit><Input Type=Reset> 
</Form> 
<Hr> 
<% 
Dim nl.n2.0p 
If Request.form.count=0 Then 
"Request.form.count 确定 参数 中 值 的 个 数 。 如 果 参 数 未 关联 多 个 值 ， 则 计数 为 1。 如 果 找 
不 到 参数 ， 计 数 为 0 
Response.end 
EndIf 
nl1=Request.form("num1") 
1n2=Request.form("num2") 
op=Request.form("operation") 
If op=" 加 " Then 
Response.Write nl &"+"&n2&"="&clng(n1)+cIng(n2) 
Elseif op=" 减 " Then 
Response.Write nl&"-"&n2&"="&cIng(n1)-clng(n2) 
Elseif op=" 乘 " Then 
Response.Write nl &"*"&n2&"="&clng(n1)*clIng(n2) 
Elseif op=" 除 " Then 
Response.Write nl&"/"&n2&"="&clng(n1)/cIng(n2) 
End If 
%> 


(2) 运行 test30.asp 后 的 结果 将 如 图 4-4 所 示 。 


GO Je 
ZN WMO BEV eRAW IAV WO 
ED | 了 全- 避 - 了 


捐 作 效 1: 世 
损 作 笋 2: 抱 


送 择 你 要 进行 的 换 作 
c 加 


绍 作 2 
寺 择 你 枢 进 行 的 操作 
6 加 


图 4-4 RequestForm 集合 获取 使 用 POST 方法 的 表单 中 信息 


3. ServerVariables 集合 获取 服务 器 端的 环境 变量 
浏览 器 中 浏览 网 页 的 时 候 使 用 的 传输 协议 是 HTTP， 在 HITP 的 标题 文件 中 会 记录 一 
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些 客户 端的 信息 ， 如 客户 的 卫 地 址 、 浏 览 器 版 本 及 端口 号 等 。 
有 时 服务 器 端 需要 根据 不 同 的 客户 端 信息 做 出 不 同 的 反映 ， 这 时 候 就 需要 用 
ServerVariables 集合 获取 所 需 信 息 。 常 用 的 环境 变量 及 说 明 ， 如 表 4-5 所 示 。 


变 量 


表 4-5 常用 的 环境 变量 及 说 阴 
说 了 明 


CONTENT LENGTH 


客户 端 所 提交 内 容 的 长 度 


CONTENT TYPE 


客户 端 所 提交 内 容 的 类 型 。 如 texyhtml。 同 附加 信息 的 查询 一 起 使 
用 ， 如 HTTP 查询 GET、POST 和 了 PUT 


HTTP ACCEPT LANGUAGE 


浏览 器 用 该 变量 向 服务 器 传送 用 于 显示 内 容 所 使 用 的 语言 , 格式 是 
LA-CO 或 LA, LA 是 语言 的 缩写 ,， CO 是 国家 的 缩写 。 若 接受 多 种 
语言 ， 则 用 逗号 分 隔 开 


HTTP USER AGENT 


该 变量 包含 浏览 器 的 名 字 、 版 本 和 平台 


HTTP REFERER 


LOCAL ADDR 


PATH INFO 


QUERY STRING 
REMOTE ADDR 


REMOTE HOST 


REQUEST METHOD 
SERVER NAME 
SERVER PORT 


确定 哪个 Web 页 调用 脚本 

返回 接受 请 求 的 服务 器 地 址 。 如 果 在 绑 定 多 个 IP 地 址 的 多 宿主 机 
器 上 查找 请 求 所 使 用 的 地 址 时 ， 这 条 变量 非常 重要 
客户 端的 路 径 信息 。 可 以 通过 虚拟 路 径 和 PATH_ INFO 变量 来 访问 
脚本 

查询 HTTP 请 求 中 问号 (?) 后 的 信息 

发 出 请 求 的 远程 主机 的 他 地 址 

发 出 请 求 的 主机 名 称 。 如 果 服 务 器 无 此 信息 ， 它 将 设置 为 空 的 
REMOTE_ADDR 变量 

该 方法 用 于 提出 请 求 。 相 当 于 用 于 HTTP 的 GET、HEAD、POST 等 
出 现在 自 引 用 UR 中 的 服务 器 主机 名 、DNS 化 名 或 人 地 址 

发 送 请 求 的 端口 号 


列举 ServerVariables 集合 包含 的 所 有 成 员 及 其 值 的 方法 如 下 。 


<OL> 


<% For Each Key in Request.ServerVariables%> 


<Li> 


<B><%=Key%>=</B><%=Request.ServerVariables(key)%><BI> 


<%Next%> 
</OL> 


注意 : 


根据 对 ServerVariables 集合 获取 的 信息 进行 处 理 ， 服 务 器 端 可 对 不 同 的 客户 端 信息 做 出 不 
同 的 反应 。 例 如 ， 如 果 某 一 计算 机 上 安装 了 多 个 Web 服务 器 ， 也 就 是 有 多 个 域名 同时 对 应 着 一 
个 中 地 址 ， 这 时 可 以 使 用 SERVER_NAME 属性 来 根据 不 同 的 域名 显示 不 同 的 页 面 。 
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【 例 4-3】 读 取 环境 变量 SERVER_ NAME， 然 后 根据 检索 到 的 域名 来 执行 重 定向 。 
(1) 创建 一 个 名 称 为 Cdx.asp 的 网 页 ， 其 代码 如 下 所 示 : 


<% 
Response. Expires=0 ' 设 置 页 面 的 缓存 过 期 时 间 为 0 
Dim strServerName 
strServerName=Request.ServerVariables("SERVER NAME") 
"此 例 需 有 一 定 的 服务 器 配置 环境 才能 看 到 实际 的 
效果 
Select Case strServerName 
Case "www .testl.com" ' 当 访问 的 域名 为 www.testl.com 时 
Response.Redirect "testl.asp" ' 重 定向 到 testl.asp 文件 
Case "www .test2.com" ' 当 访问 的 域名 为 www.test2.com 时 
Response.Redirect "test2.asp" ' 重 定向 到 test2.asp 文件 
Case Else 
Response.Redirect "notFound.asp" 
End Select 
%> 


(2) 运行 Cdx.asp 后 ，ASP 网 页 会 根据 读 取 的 环境 变量 SERVER_NAME， 打 开 不 同 的 
网 页 ( 当 服 务 器 访问 www.testl.com 网 站 时 Cdx.asp 将 自动 打开 testl.asp 页 面 ， 当 服务 器 访 
问 www.test2.com 网 站 时 ， 则 打开 test2.asp 页 面 ， 如 果 服 务 器 没有 打开 任何 一 个 网 站 ， 
Cdx.asp 页 面 将 重 定向 到 notFound.asp 页 面 )。 


4.3 ”Response 对 象 


Response 对 象 用 于 向 客户 端 浏 览 器 发 送 服务 器 端的 数据 。 用 户 可 以 使 用 该 对 象 将 服务 
器 端的 数据 用 HTML 的 格式 发 送 到 客户 端的 浏览 器 。 该 对 象 的 功能 与 Request 对 象 的 功能 
相反 ，Request 对 象 用 于 得 到 用 户 提交 的 数据 ， 而 Response 对 象 用 于 将 服务 器 端的 数据 发 
送 到 用 户 的 浏览 器 ， 这 是 实现 网 页 动态 效果 的 基础 。 


4.3.1 Response 对 象 概述 

Response 对 象 发 送 给 用 户 的 信息 包括 直接 发 送信 息 给 客户 端 浏览 器 、 重 定向 浏览 器 到 
另外 一 个 URL 以 及 设置 Cookie 的 值 。 

1. Response 对 象 的 属性 


Response 对 象 也 提供 一 系列 的 属性 , 可 以 读 取 和 修改 , 使 响应 能 够 适应 请 求 。Response 
对 象 的 属性 及 说 明 ， 如 表 4-6 所 示 。 
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表 4-6 Response 对 象 的 属性 及 说 明 


属 性 说 了 明 
读 / 写 , 布尔 型 , 表明 由 一 个 ASP 页 面 所 创建 的 输出 是 否 一 直 存 
放 在 IS 缓冲 区 ， 直 到 当前 页 面 的 所 有 服务 器 脚本 处 理 完毕 或 
Flush、End 方法 被 调用 。 在 任何 输出 (包括 HTTP 报头 信息 ) 送 
Buffer =True/False 往 IS 之 前 这 个 属性 必须 设置 。 因此 在 .asp 文件 中 , 这 个 设置 应 
该 在 <%@LANGUAGE=.….%> 语 句 后 面 的 第 一 行 。 在 ASP 3.0 以 
及 后 续 版 本 中 默认 设置 缓冲 为 开 (True), 而 在 早期 版 本 中 默认 为 
关 (False) 
读 / 写 ,字符 型 ， 设 置 这 个 属性 为 Public 允许 代理 服务 器 缓存 页 
面 ， 如 为 Private 则 禁止 代理 服务 器 缓存 的 发 生 
读 / 写 ， 字 符 型 ， 在 由 服务 器 为 每 个 响应 创建 的 HTTP 
Content-Type 报头 中 附 上 所 用 的 字符 集 名 称 (如 ISO-LATIN-7) 
读 / 写 ， 字 符 型 ， 指 明 响应 的 HTTP 内 容 类 型 ， 标 准 的 MIME 
Content Type="MIME-type" 类 型 (如 text/xml 或 者 Image/gif)。 假 如 省 略 ， 表 示 使 用 MIME 
类 型 texthtml， 告 诉 浏览 器 所 期 望 内 容 的 类 型 
读 / 写 ， 数 值 型 ， 指 明 页 面 有 效 的 以 分 钟 计算 的 时 间 长 度 ， 假 如 
用 户 请 求 其 有 效 期 满 之 前 的 相同 页 面 ， 将 直接 读 取 显示 缓冲 中 


CacheControl "setting" 


Charset="value" 


ee 的 内 容 ， 这 个 有 效 期 间 过 后 ， 页 面 将 不 再 保留 在 私有 (用 户 ) 或 
公用 (代理 服务 器 ) 缓 冲 中 
| | 读 / 写 , 日 期/ 时 间 型 , 指明 当 菜 页 面 过 期 和 不 再 有 效 时 的 绝对 日 
Expires Absolute #date[time]# 
期 和 时 间 
只 读 , 布尔 型 , 返回 客户 是 否 仍然 连接 和 下 载 页 面 的 状态 标志 。 
IsClientConnected 在 当前 的 页 面 已 执行 完毕 之 前 ， 假 如 一 个 客户 转移 到 另 一 个 页 


面 ， 这 个 标志 可 用 来 中 止 处 理 (使 用 Response .End 方法 ) 
只 写 ， 字 符 型 ， 创 建 一 个 PICS 报头 并 将 之 加 到 响应 的 HTTP 


PICS "PICS-Label-string" 报头 中 ，PICS 报头 定义 页 面 内 容 中 的 词汇 等 级 ， 如 暴力 、 不 良 
语言 等 
读 / 写 ， 字 符 型 ， 指 明 发 回 客户 的 响应 的 HTTP 报头 中 表明 错误 
Status="Code message" 或 页 面 处 理 是 否 成 功 的 状态 值 和 信息 ， 如 200 OK 和 404 Not 
Found 


2. Response 对 象 的 方法 


表 4-7 所 示 为 Response 对 象 提供 的 方法 ， 它 允许 直接 处 理 为 返 给 客户 端 而 创建 的 页 面 
内 容 。 
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表 4-7 Response 对 象 的 方法 及 说 明 

说 明 
通过 使 用 name 和 content 值 ， 创 建 一 个 定制 的 HITP 报头 ， 并 
增加 到 响应 之 中 。 不 能 替换 现 有 的 相同 名 称 的 报头 。 一 旦 已 经 
增加 了 一 个 报头 就 不 能 被 删除 。 这 个 方法 必须 在 任何 页 面 内 容 
( 即 text 和 HTML) 被 发 往 客户 端 前 使 用 
当 使 用 W3C Extended Log File Format 文件 格式 时 ， 对 于 用 户 请 
求 的 Web 服务 器 的 日 志文 件 增加 一 个 条 目 。 至 少 要 求 在 包含 页 
面 的 站 点 的 Extended Properties 中 选择 URIStem 
在 当前 的 HTTP 输出 流 中 写 入 Variant 类 型 的 SafeArray， 而 不 
经 过 任何 字符 转换 。 对 于 写 入 非 字 符 串 的 信息 ， 例 如 定制 的 应 


AddHeader("name"."content") 


AppendToLog("string") 


ey 用 程序 请 求 的 二 进 制 数据 或 组 成 图 像 文件 的 二 进 制 字 节 ， 是 非 
常 有 用 的 
当 Response.Buffer 为 True 时 ， 从 IIS 响应 缓冲 中 删除 现存 的 组 

Clear0 冲 页 面 内 容 。 但 不 删除 HTTP 响应 的 报头 ， 可 用 来 放弃 部 分 完 
成 的 页 面 

二 志 让 ASP 结束 处 理 页 面 的 脚本 ， 并 返回 当前 已 创建 的 内 容 ， 然 后 
放弃 页 面 的 任何 进一步 处 理 

FlushO 发 送 IIS 缓冲 中 所 有 当前 缓冲 页 面 给 客户 端 。 当 Response.buffer 
为 True 时 ， 可 以 用 来 发 送 较 大 页 面 的 部 分 内 容 给 个 别 的 用 户 
通过 在 响应 中 发 送 一 个 302 Object Moved 的 HTTP 报头 ， 指 示 

Redirect("url") 和 
浏览 器 根据 字符 串 url 下 载 相 应 地 址 的 页 面 

在 当前 的 HTTP 响应 信息 流 和 IIS 缓冲 区 写 入 指定 的 字符 , 使 之 
Write("string") 


成 为 返回 页 面 的 一 部 分 


3. Response 对 象 的 集合 


表 4-8 所 示 为 Response 对 象 的 唯一 集合 , 该 集合 设置 希望 放置 在 客户 系统 上 的 Cookie 
的 值 ， 它 直接 等 同 于 Request.Cookies 集合 。 


表 4-8 Response 对 象 的 集合 及 说 明 


在 当前 响应 中 ， 发 回 客户 端的 所 有 Cookie 的 值 ， 这 个 集合 为 只 


写 的 


4.3.2 ”Response 对 象 在 网 页 设计 中 的 应 用 


Cookies 


下 面 将 介绍 Response 对 象 在 网 页 设计 中 的 各 种 应 用 ,包括 向 浏览 器 发 送 数据 、 利 用 组 
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冲 区 输出 数据 以 及 实现 网 页 重 定位 等 。 
1. 向 浏览 器 发 送 数据 
在 信息 查询 页 面 中 , 若 用 户 输入 查询 条 件 并 提交 到 服务 器 时 ， 就 需要 编写 一 个 ASP 程 
序 ， 通 过 用 户 输入 的 查询 条 件 来 查询 数据 ， 并 将 查询 的 数据 结果 返回 到 用 户 的 浏览 器 上 。 
2. 利用 缓冲 区 输出 数据 


当 用 户 使 用 浏览 器 打开 一 个 网 页 时 ， 有 时 需要 等 待 很 长 的 一 段 时 间 ， 这 是 因为 设置 了 
缓冲 页 面 输出 。 页 面 缓冲 利用 Response 对 象 在 缓冲 区 输出 数据 。 下 面 介绍 Response 对 象 
的 一 些 属 性 。 

1) Buffer 属性 

在 ASP 程序 中 ， 可 以 为 页 面 在 服务 器 端 设置 一 个 缓存 。 缓 存 区 是 一 个 存储 区 ， 它 可 以 
在 其 释放 数据 之 前 容纳 该 数据 一 段 时 间 ， 缓 冲 区 的 优点 在 于 它 的 行为 可 以 进行 控制 。 

设置 缓存 后 ， 服 务 器 端 可 减少 与 客户 端 连接 的 次 数 而 提高 整体 的 响应 速度 ， 并 可 在 满 
足 某 些 条 件 ( 如 脚本 处 理 不 正确 或 用 户 没 有 适当 的 安全 证 书 ) 时 撤销 已 经 处 理 的 结果 ， 而 不 
会 出 现 响应 完成 一 部 分 就 停止 的 状况 。 

缓存 功能 的 打开 和 关闭 是 通过 Response 对 象 的 Buffer 属性 来 完成 的 。 若 将 Buffer 属 
性 设 为 False， 则 关闭 缓存 功能 ，Web 服务 器 在 处 理 页 面 时 会 随时 返回 HTML 和 脚本 结果 ; 
若 将 Buffer 属性 设 为 True， 则 打开 缓存 功能 ，Web 服务 器 在 处 理 页 面 时 会 将 结果 和 暂时 存放 
到 缓存 中 ， 当 全 部 脚本 处 理 完 后 ， 或 者 遇 到 End 或 Flush 方法 时 ， 才 将 缓存 中 的 内 容 发 送 到 
浏览 器 。 

Buffer 属性 的 更 改 必须 放 在 HTML 或 脚本 输出 之 前 。 这 是 因为 在 任何 内 容 发 送 到 浏览 
器 后 ，Buffer 属性 值 就 不 能 再 更 改 ， 否 则 会 引起 错误 。 


注意 : 
如 果 在 ASP 文件 中 的 任意 地 方 用 到 Redirect( 方 法 重 定 向 页 面 ， 必 须 在 文件 开头 关闭 
Buffer 属性 ， 否 则 就 会 报错 。 


【 例 4-4】 创 建 一 个 用 于 测试 Buffer 属性 的 ASP 应 用 程序 ， 该 程序 会 在 浏览 器 上 从 1 
显示 到 255， 并 且 每 输出 一 个 数字 就 自动 换 一 行 ， 如 图 4-5 所 示 。 
(1) 创建 一 个 名 称 为 test31.asp 的 网 页 ， 其 代码 如 下 所 示 : 


<html> 
<head> 1=255 
<title> 测 试 buffer 属性 的 例子 </title> 
</head> 
<body> 
<% 
For i=1 to 255 1 为 1 到 255 中 的 一 个 值 
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Response.write(i&"<BR>") "输出 i 的 值 并 换行 
next 
%> 
</body> 


(2) 运行 test31.asp 后 的 结果 将 如 图 4-5 所 示 。 


DEREEEI3 -加 习 
文件 加 妨 笑 国花 式 中 可 下 外 天 下 思 


tmly 习 


head》 1=255 
jibley 试 bufFer 属 性 的 例子 4/titley 
(head> 

> 


te 255 地 一 个 | 
nse -writefia "KBR7 ) “输出 的 值 并 换行 


Bt 
二 


图 4-5 测试 Buffer 属性 的 ASP 应 用 程序 


注意 : 

本 节 实例 创建 的 程序 脚本 在 屏幕 上 显示 1 一 255 的 数字 ， 并 且 每 输出 一 个 数字 就 换 一 
行 。 每 一 句 命令 执行 后 结果 都 会 立即 显示 。 如 果 把 Buffer 属性 设置 为 Te， 那么 服务 器 端 
的 Response 要 写 入 缓存 区 中 ， 当 脚本 被 处 理 完成 后 再 释放 给 用 户 。 如 果 把 Buffer 属性 设置 
为 False， 则 在 服务 器 处 理 脚本 时 ，HTML 要 顺序 地 发 给 客户 程序 (上 面 的 实例 就 是 默认 地 
使 Buffer 属性 为 False)。 


2) ContentType 属性 
ContentType 属性 指定 响应 的 HTTP 内 容 类 型 。 其 语法 结构 如 下 : 
Response.ContentType [=ContentType] 

ContentType 字符 串通 常 被 格式 化 为 类 型 / 子 类 型 ， 其 中 类 型 是 常规 内 容 范 畴 ， 子 类 为 
特定 内 容 类 型 。 如 果 未 指定 ContentType， 默 认为 texUHTML。 

Web 服务 器 将 某 个 文件 发 送 到 浏览 器 时 ， 它 会 将 文件 的 MIME 类 型 告诉 浏览 器 , 浏览 
器 会 根据 文件 的 MIME 类 型 和 扩展 名 来 确定 是 自己 本 身 就 能 显示 , 还 是 必须 调用 其 他 应 用 
程序 。 

注意 : 

MIME BP Multipurpose Internet Mail Extensions( 多 用 途 Intermmet 邮件 扩展 ), 作 为 对 SMTP 
协议 的 扩充 , MIME 规定 了 通过 SMTP 协议 传输 非 文本 电子 邮件 附件 的 标准 , 目前, MIME 
的 用 途 早已 经 超越 了 收发 电子 邮件 的 范围 ， 成 为 在 Internet 上 传输 多 媒体 信息 的 基本 协议 
之 一 ， 是 Internet 上 识别 文件 类 型 的 标准 方法 。 

3) Expires 属性 

Expires 属性 指定 了 在 浏览 器 上 缓冲 存储 的 页 距 过 期 还 有 多 少时 间 。 如 果 用 户 在 某 个 页 
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过 期 之 前 又 回 到 此 页 ， 就 会 显示 缓冲 区 中 的 版 本 。 其 语法 结构 如 下 : 
Response .Expires [= 时 间 ] 

时 间 参 数 设置 网 页 距 过 期 还 有 多 少 分 钟 。 如 果 将 此 参数 设置 为 0， 可 使 缓存 的 页 立即 
过 期 ， 这 样 客户 端 每 次 都 将 从 服务 器 上 得 到 最 新 的 页 面 。 

4) Expires Absolute 属性 

Expires Absolute 属性 指定 缓存 于 浏览 器 中 的 页 面 的 确切 到 期 日 期 和 时 间 。 在 未 到 期 之 
前 ， 若 用 户 返 回 到 该 页 ， 该 缓存 的 页 就 显示 。 如 果 未 指定 时 间 ， 该 主页 在 当天 午夜 到 期 。 
如 果 未 指定 日 期 ， 则 该 主页 在 脚本 运行 当天 的 指定 时 间 到 期 。 其 语法 结构 如 下 : 


Response.ExpiresAbsolute [= [日 期 ] [时 间 ] ] 
例如 ， 以 下 代码 指定 页 面 在 2012 年 7 月 31 日 下 午 16:17 分 15 秒 到 期 。 


<9% Response.ExpiresAbsolute=#July 31.2012 16:17:15# %> 


注意 : 
如 果 Expires 属性 和 ExpiresAbsolute 属性 在 一 个 页 面 上 设置 了 多 次 ，ASP 会 自动 选择 
使 用 最 短 的 设置 时 间 。 


5) Status 属性 

Status 属性 用 来 传递 服务 器 HTTP 响应 的 状态 。 这 个 属性 可 以 用 来 处 理 HTTP 请 求 后 
服务 器 返回 的 错误 。 

服务 器 返回 的 状态 码 由 三 位 数字 构成 ， 可 以 根据 状态 码 来 确定 服务 器 是 如 何 处 理 
HTTP 请 求 的 。 在 调试 过 程 或 向 客户 端 返回 有 关 错 误 信 息 时 ，Status 属性 特别 重要 。 表 4-9 
对 常见 的 状态 码 做 了 说 明 。 


表 4-9_HTTP 响应 状态 码 


| 状 态 
201 


202 Accepted Page not found 


a 
204 No content 500 Internet server error 
301 Moved permanently 501 Not implemented 
502 


200 Unauthorized 


Forbidden 


302 Moved temporarial 


304 Not modified 
400 Bad request 


Bad gatewa 


Service unavailable 
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6) Charset 属性 
Charset 属性 将 字符 集 名 称 附 加 到 Response 对 象 中 ContentType 标题 的 后 面 。 其 语法 
结构 如 下 : 
Response.Charset (字符 集 ) 
对 于 不 包含 Response.Charset 属性 的 ASP 页 ,Contenttype 标题 将 为 content-type:text/html， 
如 果 ASP 文件 包含 了 下 面 一 句 脚本 : 
<9% Response.Charset("ISO-LATIN-7") %> 
则 Contenttype 标题 将 为 : 
content-type:text/html:charset=ISO-LATIN-7 


注意 : 

无 论 字 符 串 表示 的 字符 集 是 否 有 效 ， 该 功能 都 会 将 其 插入 Contenttype 标题 中 。 如 果 某 
个 页 包含 多 个 含有 Response.Charset 的 标记 ， 则 每 个 Response.Charset 都 将 替代 前 一 个 
CharsetName。 这 样 , 字符 集 将 被 设置 为 该 页 中 Response.Charset 的 最 后 一 个 实例 所 指定 值 。 

7) IsClientConnected 属性 

IsClientConnected 属性 是 只 读 属 性 ， 它 用 来 指示 自 上 次 调用 Response.Write 之 后 ， 客 
户 端 是 否 与 服务 器 相连 。 其 语法 结构 如 下 : 

Response.IsClientConnected ( ) 

IsClientConnected 属性 允许 用 户 在 客户 端 与 服务 器 没有 连接 的 情况 下 有 更 多 的 控制 。 
例如 ， 在 从 客户 端 提出 请 求 起 到 服务 器 做 出 响应 ， 期 间 要 用 去 很 长 一 段 时 间 的 情况 下 ， 这 
就 可 以 确保 在 继续 处 理 脚本 之 前 客户 端 仍 是 连通 的 。 

8) CacheControl 属性 

CacheControl 属性 用 来 控制 是 否 允 许 代理 服务 器 高 速 缓存 。CacheControl 属性 的 默认 
值 为 Private， 它 可 以 阻止 代理 服务 器 高 速 缓存 页 面 信息 。 当 属性 值 为 Public 时 ,代理 服务 
器 可 以 缓冲 由 ASP 产生 的 输出 。 其 语法 结构 如 下 : 

Response.CacheControl [= 缓冲 存储 器 控制 标题 ] 
例如 ， 设 置 网 页 的 缓存 时 间 并 控制 它 在 浏览 器 的 显示 内 容 的 代码 如 下 : 


<% 
Response.Buffer=TRUE "将 此 页 面 设 为 缓存 页 ， 服 务 器 暂 不 将 显示 内 容 发 送 到 浏览 器 
Response.Expires=60 ' 设 置 缓存 过 期 时 间 为 60 分 钟 

%> 
设置 缓存 时 间 为 一 个 小 时 的 第 一 段 测试 的 语句 。<Br> 

<% 


Response.Clear "清除 缓存 中 的 所 有 内 容 


-92 。 ASP 动态 网 站 开发 基础 教程 (第 4 版 ) 


Response Expires=0 "设置 缓存 过 期 时 间 为 0 分 钟 
%> 
第 二 段 会 被 显示 的 测试 语句 。 
<% 
Response Flush 将 缓存 区 的 内 容 立即 传送 到 浏览 器 
%> 
<% 
Response.End "Web 服务 器 停止 当前 的 脚本 处 理 并 返回 当前 结果 
%> 


不 会 被 送 往 浏 览 器 显示 的 第 三 段 测试 语句 。 


3. 实现 网 页 的 重 定位 
在 ASP 应 用 程序 中 ， 使 用 Response 对 象 的 方法 可 以 根据 客户 端 不 同 的 请 求 输出 不 同 
的 返回 结果 。 
1) Write 方法 
Write 方法 是 Response 对 象 中 最 常用 的 方法 之 一 ， 它 可 以 把 变量 的 值 发 送 到 用 户 端的 
当前 页 面 。Write 方法 的 功能 很 强大 ， 几 乎 可 以 输出 所 有 的 对 象 和 数据 。 
在 Write 方法 中 可 以 嵌入 任何 HIML 标记 ， 只 要 该 标记 是 合法 的 ， 如 下 例 将 输出 绿色 
的 汉字 和 一 条 水 平 线 : 
Response. Write "<Font color=green>" 
Response.Write "欢迎 您 来 访问 ! "&"<Br>" 
Response.Write "</Font>" 
Response. Write "<Hr>" 
将 HTML 标记 与 ASP 中 的 变量 恰当 地 结合 使 用 ， 可 使 程序 更 简洁 易 读 ， 如 下 例 是 根 
据 Request 对 象 获取 的 数据 来 创建 表格 的 一 行 信息 : 
<%Response. Write "<Tr><Td>"&Request.Form("strUserName")&"</Td><Td>"_ 
& Request.Form("intAge")&"</Td></Tr>" % 
2) Clear 方法 
Clear 方法 用 于 清除 缓冲 区 的 所 有 HTML 输出 ， 但 它 只 删除 响应 正文 而 不 删除 响应 标 
题 。 在 服务 器 上 的 程序 产生 错误 时 ， 可 用 Clear 方法 来 处 理 错误 情况 。 
Clear 方法 仅 当 Response 对 象 的 Buffer 属性 设 为 True 时 才 起 作用 。 如 果 Buffer 属性 未 
设 为 True， 则 Clear 方法 将 导致 运行 时 错误 。 
3) Flush 方法 
调用 Flush 方法 时 ， 缓 存 中 的 所 有 内 容 会 立即 发 送 到 客户 端 。 与 Clear 方法 一 样 ， 如 果 
Response 对 象 的 Buffer 属性 没有 被 设 为 Tme 时 ， 则 Flush 方法 同样 会 产生 运行 时 错误 。 
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4) End 方法 
End 方法 使 服务 器 停止 当前 脚本 的 处 理 并 返回 当前 结果 。 如 果 Response 对 象 的 Buffer 
属性 设 为 Tme， 则 End 方法 立即 把 缓存 中 的 内 容 发 送 到 客户 端 并 清除 缓存 。 


因此 ， 若 想 取消 向 客户 端的 所 有 输出 ， 可 以 先 用 Clear 方法 清除 缓存 ， 再 用 End 方法 


停止 脚本 的 处 理 。 

5) Redirect 方法 

在 普通 网 页 中 ， 可 以 使 用 超 链 接 的 方式 来 引导 访问 者 跳 转 到 另 一 个 页 面 ， 但 这 个 过 程 
需要 访问 者 单 击 一 个 超 链 接 才 可 以 进行 。Response 对 象 的 Redirect 方法 则 可 以 自动 完成 页 
面 间 的 跳 转 ， 而 访问 者 几乎 不 会 感觉 出 来 。 

【 例 4-5】 创 建 一 个 搜索 页 面 ， 如 图 4-6 所 示 。 使 用 Response.Redirect 方法 编写 程序 来 

完成 不 同 搜索 引擎 的 转向 定位 ， 搜 索 结 果 如 图 4-7 所 示 。 

(1) 创建 一 个 名 称 为 test32.asp 的 网 页 ， 其 代码 如 下 所 示 : 


<Form Method="get" Action="test32.asp"> 


<Input Type="Text" Name="SearchStrings"> 

<Input Type="Submit" Name="Search" Value=" 搜 索 "> 

<p> 

<Input Name="goURL" Type="Radio" Value=" 百 度 " Checked> 百 度 
<Input Name="goURL" Type="Radio" Value="Yahoo">Yahoo 


</Form> 


<% 


Response.Buffer=True "打开 缓存 功能 
Dim strUrlRedirTo.strSearchStrings 


%> 


strSearchStrings=Trim(Request.QueryString("SearchStrings")) ” "获取 欲 搜索 的 关键 字 
If (Len(strSearchStrings)) Then 
strSearchStrings=Server.UrlEncode(strSearchStrings) 。“ ' 对 字符 串 按 URL 规则 进行 编码 
If Request.QueryString("goURL")=" 百 度 " Then 
strUrlRedirTo="http://www.baidu.com/baidu?word="&zstrSearchStrings "产生 跳 转 的 URL 
End 让 
If Request.QueryString("goURL")="Yahoo" Then 
strUrlRedirTo="http://cn.websearch.yahoo.comy/search/web_cn?p="&strSearchStrings 
EndIf 
Response.Redirect strUrlRedirTo ' 跳 转 语句 
EndIf 


(2) 运行 test32.asp 后 的 结果 将 如 图 4-6 所 示 .。 在 页 面 的 文本 框 中 输入 ASP, 并 选中 “ 百 
度 ” 单 选 按 钮 ， 然 后 单 击 “ 搜 索 ” 按 钮 ，ASP 页 面 将 自动 打开 如 图 4-7 所 示 的 页 面 ， 通 过 
百度 搜索 引擎 搜索 关键 字 ASP。 
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0) BinaryWrite 方法 


BinaryWrite 方法 不 经 任何 字符 转换 就 将 指定 的 信息 写 到 HTTP 输出 。 该 方法 用 于 写 
非 字符 串 信息 ， 如 客户 端 应 用 程序 所 需 的 二 进 制 数 据 ， 常 见 的 有 图 形 、 声 音 或 影像 等 。 其 
语法 结构 如 下 : 


Response.BinaryWrite 输出 数据 


如 果 有 一 个 产生 字 节 数组 的 对 象 ， 就 可 调用 BinaryWrite 将 这 些 生成 的 字 节 发 送 给 客 
户 端 应 用 程序 ， 如 下 例 所 示 : 
<% 
Set BinGen = Server.CreateObject(MY.BinaryGenerator) 
Pict= BinGen.MakePicture 
Response.BinaryWrite Pict 
%> 
7) AddHeader 方法 
AddHeader 方法 使 用 指定 的 值 添加 HTML 标题 。 该 方法 常常 向 响应 添加 新 的 HTTP 标 
题 。 它 并 不 替代 现 有 的 同名 标题 。 一 旦 标题 被 添加 ， 将 不 能 删除 。 其 语法 结构 如 下 : 
Response.AddHeader 标题 变量 名 称 ， 初 始 值 


为 避免 命名 不 明确 ， 标 题 变量 名 称 中 不 能 包含 任何 下 划 线 字符 “”。 由 于 HITP 协议 
要 求 所 有 的 标题 都 必须 在 内 容 之 前 发 送 , 所 以 必须 在 任何 输出 (例如 由 HTML 或 Write 方法 
生成 的 输出 ) 发 送 到 客户 端 之 前 在 脚本 中 调用 AddHeader。 但 当 Buffer 属性 被 设置 为 Tme 
时 例外 。 车 输出 被 缓冲 , 则 可 以 在 脚本 中 的 任何 地 方 调用 AddHeader 方法 , 只 要 它 在 Flush 
之 前 执行 即 可 。 

8) AppendToLog 方法 

AppendToLog 方法 在 Web 服务 器 日 志文 件 的 末尾 增加 一 项 , 每 项 内 容 最 多 80 个 字符 。 
可 以 在 脚本 的 同一 部 分 多 次 调用 该 方法 。 每 次 调用 该 方法 时 ， 都 会 在 当前 条 目 中 添加 指定 
的 字符 串 。 其 语法 结构 如 下 : 


第 4 章 Request 对 象 与 Response 对 象 “95。 


Response.AppendToLog 字符 串 


输出 的 字符 串 为 要 添加 到 日 志文 件 中 的 文本 。 由 于 日 志文 件 的 每 项 是 以 逗号 分 隔 的 ， 
所 以 字符 串 的 内 容 中 不 能 含有 逗号 ， 字 符 串 最 大 长 度 为 80 个 字符 。 


注 意 日 
服务 器 日 志文 件 是 记载 访问 情况 的 纯 文本 文件 , 默认 放置 于 Windows/System32/LogFiles 
文件 夹 中 ， 可 以 使 用 任何 文本 编辑 器 来 读 写 。 


4.4 在 网 页 中 使 用 Cookie 


Cookie 是 一 种 标记 ， 由 Web 服务 器 嵌入 用 户 浏览 器 中 来 标识 用 户 。 当 下 次 同一 个 浏 
览 器 请 求 网 页 时 ， 将 把 以 前 从 Web 服务 器 得 到 的 Cookie 再 传送 给 服务 器 。Cookie 允许 一 
个 用 户 关联 一 组 信息 。Cookie 被 保存 为 简单 的 文本 文件 ， 其 名 称 标识 用 户 和 站 点 ， 可 以 用 
任何 文本 编辑 器 打开 。 


4.4.1 Cookie 的 设置 


当 访 问 者 在 某 个 网 站 登录 后 ， 该 网 站 将 会 提示 是 否 保留 Cookies 以 及 保留 多 长 时 间 。 
而 Cookie 是 存储 在 计算 机 中 的 一 个 临时 文件 , 它 包括 了 用 户 在 登录 时 的 用 户 名 及 密码 等 相 
关 信 息 。 该 文件 有 一 个 生命 期 限 , 其 存在 的 期 限 由 程序 设计 者 在 编写 程序 时 设 定 。 在 cookie 
文件 生命 期 限 到 期 的 时 候 ， 就 会 从 计算 机 中 自动 消失 。 

1. 定义 Cookie 


cookie 是 所 定义 的 Cookie 的 名 称 ， 而 value 则 是 给 这 个 变量 赋予 的 初始 值 。 如 果 设 计 
者 在 定义 Cookie 变量 时 使 用 了 Key， 则 表示 这 个 Cookie 变量 是 一 个 字典 。 所 谓 字典 ， 就 
是 有 相同 变量 名 的 一 批 不 同 的 Cookie 变量 ， 这 些 变量 通过 不 同 的 关键 字 (Key) 来 存储 值 和 
相互 区 分 。 
Cookie 变量 的 一 个 显著 特征 是 其 具有 一 定 的 生命 期 限 。 管 理 和 定义 不 同 的 Cookie 变 
量 其 生命 期 限 不 同 , 该 变量 是 通过 某 些 Cookie 变量 的 属性 来 完成 的 。 由 于 不 是 放置 在 服务 
器 端的 数据 库 中 ，Cookie 变量 就 有 可 能 由 于 种 种 原因 而 遭 到 破坏 ， 为 了 防止 其 他 网 页 和 网 
站 所 设置 的 Cookie 与 自己 的 相同 而 破坏 了 已 经 定义 的 Cookie 变量 ， 设 计 者 可 以 使 用 一 些 
其 他 Cookie 变量 的 属性 来 进一步 管理 Cookie。 定 义 Cookie 的 一 般 格式 如 下 : 


Response.Cookies(cookie)[(key)|.attribute]=value 


以 上 格式 的 意义 是 在 客户 端 计算 机 上 写 入 一 个 Cookie 变量 ， 该 变量 的 名 称 为 cookie， 
其 变量 值 为 value。 若 该 变量 已 经 存在 ， 则 直接 写 入 value 值 ; 若 该 变量 不 存在 ， 就 要 创建 
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一 个 新 的 变量 ， 其 名 称 为 cookie， 值 为 value。Cookie 变量 引用 的 一 般 格 式 如 下 : 
Response.Cookies(cookie)=value 
例如 以 下 程序 代码 : 


<% 
Response.Cookies("Username")="Luck" 
Response.Cookies("Date").Expires="July 22.2038" 
%> 


以 上 代码 的 意思 是 定义 两 个 Cookie 变量 , 在 客户 端 写 入 两 个 变量 , 其 中 一 个 变量 名 称 
为 Username， 值 为 Luck: 另 一 个 变量 名 称 为 Date， 值 为 Jaly 22,2038。 所 定义 的 Cookie 
变量 都 存储 在 客户 端 计算 机 硬盘 上 一 个 名 称 为 Cookie 的 目录 中 。 


注意 : 

若 所 设置 的 Cookie 变量 在 客户 端 计算 机 上 已 经 存在 ， 并 且 其 各 种 参数 均 相 同 ， 那 么 原 
有 的 Cookie 变量 将 被 覆盖 。 

2. 定义 Cookie 变量 的 生命 期 限 


可 以 通过 设置 Cookie 变量 的 Expires 属性 来 设置 它 的 生命 期 限 。 若 在 一 次 客户 访问 结 
束 后 ， 所 设置 的 Cookie 变量 依然 留 在 客户 端 计算 机 上 并 且 有 效 ， 那 么 必须 设置 Cookie 变 
量 的 Expires 属性 值 ， 若 不 设置 ， 则 在 一 次 会 话 结束 后 ， 所 有 程序 中 设置 的 Cookie 变量 都 
会 过 期 失效 。 

Time 属性 值 为 一 个 时 间 常 数 ， 按 照 VBScript 的 约定 ， 时 间 常 数 一 般 用 两 个 “#” 来 界 
定 。Expires 属性 的 界限 是 : 1980 年 1 月 1 日 至 2038 年 1 月 19 日，3:14:07GMT。Expires 
属性 引用 的 一 般 格式 如 下 : 


Response.Cookies(cookie).Expires=Time 
例如 下 面 程序 中 的 一 个 循环 ， 将 所 有 的 Cookie 变量 的 过 期 日 期 都 设置 为 2012/5/1。 


<% 
For Each Cookies in Response.Cookies 
Response.Cookies("Date").Expires=#May 1,2012# 
%> 


3. 定义 Cookie 变量 的 作用 域 
由 于 Cookie 变量 使 用 得 非常 广泛 , 各 种 不 同 的 网 站 都 在 客户 端的 计算 机 上 写 下 了 各 种 
各 样 的 Cookie 变量 和 Cookie 值 。 但 是 Cookie 变量 只 能 定义 和 赋值 ， 而 不 能 追加 ， 若 名 称 


相同 ， 则 会 将 原 有 的 数据 覆盖 。 
要 保证 不 同 网 站 的 Cookie 不 会 互相 冲突 及 同一 个 网 站 内 的 Cookie 不 会 相互 冲突 ， 用 
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户 可 以 使 用 Cookie 变量 的 Domain 属性 和 Path 属性 : 
e Domain 属性 用 于 设置 所 定义 的 Cookie 变量 的 域 ， 设 置 不 同 变量 的 域 可 以 防止 不 同 
网 站 之 间 的 Cookie 互相 冲突 。 
e Path 属性 用 于 设置 所 定义 的 Cookie 变量 的 文件 路 径 ， 此 路 径 相当 于 服务 器 主 目录 
而 言 。 一 般 一 个 网 站 的 不 同 开发 组 会 使 用 不 同 的 文件 路 径 ， 这 样 可 以 避免 Cookie 
的 互相 冲突 。 
Domain 属性 和 Path 属性 的 定义 格式 如 下 : 


Response.Cookies(cookie).Domain=domainname 
Response.Cookies(cookie).Path=pathname 


域 就 是 一 个 网 站 域 ， 而 地 址 则 是 该 文件 的 相对 地 址 。 如 下 面 程序 定义 了 一 个 Cookie 
变量 ， 用 于 几 类 用 户 的 名 称 ， 并 设置 了 域 和 地 址 属性 。 

<% 
Response.Cookies("Customer")="Du" 
Response.Cookies("Customer").Expires=#May 1.2012# 
Response.Cookies("Customer").Domain="http://WwWwwW.xxx.com" 
Response.Cookies("Customer").Path="/wwwroot/hsm" 

%> 


- 旦 程序 中 设置 了 变量 的 域 和 路 径 , 若 想 修改 文件 夹 名 称 , 则 还 要 在 程序 中 将 其 找到 ， 
将 域 和 路 径 修改 过 来 。 为 了 提高 工作 效率 ， 用 户 可 以 使 用 以 下 程序 的 方法 来 实现 动态 生成 
域 和 地 址 : 
<% 

Dim getdomain 

Dim getpath 

Dim position 

Getdomain=Request.servervariables(“server_name”) 

Position=instrrev(path.*/”) 


Response.Cook 

Response.Cookies("Customer")="Du" "记录 用 户 名 
Response.Cookies("Customer").Expires=#May 1.2012# "记录 当前 日 期 
Response.Cookies("Customer").Domain=getdomain "记录 当前 网 址 
Response.Cookies("Customer").Path=getpath "记录 路 径 


9%> 


4.4.2 Cookie 的 使 用 


下 面 将 介绍 使 用 Cookie 字典 和 读 取 Cookie 值 的 方法 与 实例 。 
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1. 使 用 Cookie 字典 

Cookie 字典 就 是 在 客户 端 存储 的 一 张 二 维 关系 表 ， 该 表 的 名 字 是 定义 的 Cookie 字典 
的 名 字 ， 引 用 同一 个 字典 的 不 同 变量 所 设置 的 key 值 ， 不 同 的 key 值 对 应 不 同 的 变量 。 因 
此 , 字典 的 名 字 和 每 个 key 值 构成 了 一 个 完整 的 Cookie 变量 名 。 定义 一 个 字典 并 指定 其 中 
所 包含 的 变量 为 以 下 格式 : 

Response.Cookies(cookie)(key)=value 

key 被 称 为 关键 字 ， 用 于 表示 同一 个 字典 中 不 同 的 变量 ， 如 下 面 的 程序 中 定义 了 一 个 

客户 信息 的 字典 customer， 并 在 这 个 字典 中 定义 了 若干 个 与 customer 相关 的 变量 。 


<% 
Response.Cookies("Customer")("name")="Du" "记录 用 户 名 
Response.Cookies("Customer")("age")="28" "记录 用 户 年 龄 
Response.Cookies("Customer")("mail")="xxx(@sina.com" "记录 用 户 电子 邮箱 地 址 
%> 


以 上 字典 customer 中 ， 定 义 了 3 个 变量 : name、age 和 mail， 就 像 数 据 库 中 表 上 的 不 
同 字段 ， 每 个 Cookie 变量 的 值 相当 于 每 个 字段 的 值 。 
若 用 户 分 不 清 一 个 Cookie 是 一 个 字典 还 是 一 个 变量 时 ， 可 以 用 haskeys 属性 来 判断 : 


<% 
If not response.cookies("customer") haskeys then "判断 haskeys 属性 
Response.write" 这 不 是 一 个 字典 " 输出 文字 这 不 是 一 个 字典 
Else 
Response.write" 这 是 一 个 字典 " "输出 文字 这 是 一 个 字典 
Endif 
%> 


对 于 一 个 字典 ， 可 以 通过 循环 来 引用 其 中 所 包含 的 所 有 变量 及 其 值 。 以 下 程序 将 
customer 字典 的 变量 全 部 置 空 ; 
<% 
If not response.cookies("customer").haskeys then 
Response.cookies("customer")="" 
Else 
For each key in response.cookies("customer") 
Response.cookies("customer")(key)="" 
Next 
Endif 
%> 


2. 读 取 Cookie 值 
Cookie 是 需要 读 取 Cookie 的 名 称 。key 选 项 的 意义 与 定义 Cookie 相同 ,表示 某 个 Cookie 
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字典 中 的 关键 字 。 属 性 attribute 只 有 一 个 haskeys 的 值 , 用 来 判断 一 个 Cookie 是 否 为 字典 ， 
用 法 与 定义 Cookie 时 使 用 的 完全 相同 。Request 对 象 负责 从 客户 端 把 Cookie 读 取出 来 。 
Response 读 取 Cookie 的 一 般 格式 如 下 : 
Response.Cookies(cookie).[(key)l.attribute] 
Cookie 字 典 中 的 变量 和 值 可 以 通过 引用 关键 字 来 读 取 , 若 一 个 字典 不 进行 关键 字 引 用 ， 
而 直接 使 用 Request.Cookies(cookie), 那么 所 有 的 关键 字 都 将 作为 返回 值 。 下 面 的 程序 是 一 
个 Cookie 字典 Du 有 两 个 关键 字 age 与 sex， 则 使 用 Response.Cookies(Du) 返 回 : 
age=28&male。 
<% 
Response.Cookies("Customer")("age")="28" 
Response.Cookies("Customer")("sex")="male" 
Response.write request.cookies("wang") 
%> 
当 Cookie 在 字典 Du 中 ， 先 定义 关键 字 age， 后 定义 关键 字 sex, 但 是 在 采用 这 种 方法 
读 取 Cookie 时 ， 先 读 取 sex， 后 读 取 age， 顺 序 是 颠倒 的 。 若 客户 端 返回 了 两 个 相同 名 称 
的 Cookie， 那 么 Request 对 象 将 只 读 取 其 中 目录 层次 比较 深 的 Cookie。 例 如 ， 在 名 称 相同 
时 ， 一 个 Cookie 的 path 属性 设置 为 wwwrootasp， 而 另 一 个 Cookie 的 path 属性 设置 为 
wwwroot/asp/asppages/， 那 么 最 终 Request 对 象 读 取 到 的 Cookie 将 是 后 者 。 

【 例 4-6】 使 用 Cookie 技术 在 客户 端 记 录 下 客户 端的 计算 机 名 ， 然 后 写 入 一 个 Cookie 
字典 , 并 设置 一 个 记录 访问 次 数 的 关键 字 , 把 用 户 的 访问 次 数 设置 为 1, 也 写 入 一 个 Cookie 
字典 。 在 用 户 下 面 的 访问 中 ， 服 务 器 读 取 用 户 计算 机 的 Cookie， 判 断 出 计算 机 名 ， 并 把 访 
问 次 数 加 1 后 显示 在 浏览 器 中 ， 如 图 4-8 所 示 。 

(1) 创建 一 个 名 称 为 test33.asp 的 网 页 ， 其 代码 如 下 所 示 : 

<% 
dim servername 
dim number 
servername=request.cookies("customer")("servername") 
number=request.cookies("customer")("number") 
if servername=""then 
servername=request.servervariables("server_ name") 
response.cookies("customer")("servemame")=servermame 
response.cookies("customer")("number")=1 
response.cookies("customer").expires=#Oct 1.2022# 
Tesponse.cookies("customer").domain=http://www.XXX.com 
else 
response.cookies("customer")("number")=number+1 
response.write" 欢 迎 你 "&servemame&" 这 是 你 的 第 "&number&" 次 访问 。" 
endif 

%> 
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(2) 运行 test33.asp 后 的 结果 将 如 图 4-8 所 示 。 


[TTT ol xl 
GO le mess x [Sr 
文 牟 四“ 编 各 四 “查看 四 收藏 天 内， 工具 四 > 
说 nioeacv | | 入 


欢迎 你 192 168.1 31 这 是 你 的 第 11 次 访问 . 司 


GO RSSl 2 x| 克 = 
文件 四。 闹 辑 人 ) 查看 WD 收藏 天 (4) 工具 WD) ” 
这 收 蕊 严 儿 http://1localhost/te 


欢迎 你 192.168.1.31 这 是 你 的 第 1 次 访问 。 


加 
"Io -4 


也 
ET [| et 
图 4-8 利用 Cookie 技术 实现 网 页 计数 器 效果 


EE 


当 用 户 第 一 次 访问 网 站 时 ， 在 客户 端 并 没有 要 求 customer 这 个 Cookie 字典 ， 因 此 使 
用 该 字典 获取 的 两 个 参数 servemame 和 number 的 值 都 为 宝 。 这 时 对 该 字典 进行 初始 化 ， 
当 用 户 再 次 连接 访问 时 , 客户 端 已 经 有 了 这 个 字典 。 为 了 能 长 期 监视 该 客户 端的 访问 情况 ， 
把 这 个 字典 的 生命 期 限 设置 为 2022 年 10 月 1 日 。 为 了 防止 其 他 网 站 将 该 Cookie 覆盖 , 还 
应 当 设置 该 Cookie 字典 的 domain 域 属性 。 


4.5 习 题 


4.5.1 填空 题 

本 对 象 用 于 接收 客户 端 浏 览 器 提交 的 数据 ， 而 对 象 的 功能 则 
是 将 服务 器 端的 数据 发 送 到 客户 端 浏览 器 。 

2. 如 果 在 Request 对 象 中 没有 指定 准确 的 集合 名 称 ，ASP 会 自动 按 QueryString、 


和 ServerVariables 的 顺序 来 搜索 确定 数据 的 获取 方法 。 
3. 当 HTML 表单 用 方法 向 ASP 文件 传递 数据 时 , 用 户 提交 的 数据 将 被 附 
在 URL 的 查询 字符 串 中 一 起 被 提交 到 服务 器 端 指定 的 文件 中 。 
4. Response 的 方法 可 以 自动 完成 页 面 间 的 跳 转 。 
5. 缓存 功能 的 打开 和 关闭 是 通过 Response 对 象 的 属性 来 完成 的 。 
4.5.2 选择 题 


1. 下 面 集合 可 以 获取 查询 字符 串 中 信息 的 是 ( 。 )。 
A. Response(" 元 素 名 ") B. Request(" 元 素 名 ") 
C. Request.Form(" 元 素 名 ") D. Request.QueryString(" 元 素 名 ") 
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2. 下 面 语句 执行 完毕 后 ， 页 面 上 显示 内 容 是 ( )。 
<% Response. Write "<a href='http://www.sina.com.cn> 新 浪 </a>" %> 


A. 新 浪 B. <a href='http://www.sina.com.cn 人 > 新 浪 </a> 
C. 新 浪 ( 超 链 接 ) D. 错误 信息 
3. Request 对 象 的 QueryString、Form、Cookies 集合 获取 的 数据 子 类 型 分 别 是 (  )。 


A. 数字 、 字 符 串 、 字 符 串 B. 字符 串 、 数 字 、 数 字 
C. 字符 串 、 字 符 串 、 字 符 串 D. 必须 根据 具体 值 而 定 
. 下 面 程序 段 执行 完毕 ， 页 面 上 显示 的 内 容 是 (  )。 
<% 
Response.Write "a": Response.Flush: Response.Write "b": Response.Clear 
Response.Write "c": Response.End: Response.Write "d" 


> 


%> 

A.ac B.cd 

C.bd D.ad 
4.5.3 问答 题 


1. Redirect 方法 和 超 链 接 的 区 别 是 什么 ? 
2. 当 表 单 分 别 以 POST 方法 和 GET 方法 提交 时 ， 获 取 数 据 的 方法 有 什么 区 别 ? 
3. 假如 变量 a="b"， 那 么 Request(a) 和 Request("a") 返 回 值 一 样 吗 ? 


4.5.4 操作 题 


1. 开发 一 个 程序 ， 当 用 户 第 一 次 访问 时 ， 需 在 线 注册 姓名 和 性 别 ， 然 后 把 信息 保存 到 
Cookie 中 。 当 该 用 户 再 次 访问 时 ， 则 显示 “ 某 某 先生 /小 姐 ， 您 好 ， 您 是 ”的 欢迎 信息 ( 提 
示 : 可 以 用 多 个 页 面 实现 )。 

2. 参考 本 章 实 例 ， 编 写 如 图 4-9 所 示 的 ASP 程序 。 


|] Er rr C7 
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MO a MV aw IAD woo 


请 雹 择 你 所 要 订 风 的 本 采 


从 入 有 订购 水 果 


a| 
BE:2 i | 


图 4-9 上 机 操作 题 示 例 图 
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Server 对 象 提供 了 访问 服务 器 对 象 的 方法 和 属性 。 一般 的 服务 器 系统 其 工具 是 以 对 象 模型 
的 方式 被 保存 的 ， 通 过 Server 对 象 的 使 用 ， 可 以 访问 服务 器 的 信息 。 服 务 器 系统 一 系列 的 对 
象 模型 ， 如 数据 库 连 接 组 件 Adodb， 其 访问 模型 有 连接 数据 库 Connection， 记 录 集 Recordset 
等 。 一 般 需 要 通过 Server 对 象 创 建 一 个 这 样 的 对 象 模型 的 实例 ， 而 后 才能 正确 地 使 用 。 

教学 目标 

通过 对 本 章 的 学 习 ， 读 者 应 了 解 并 掌握 Server 对 象 的 基础 知识 ， 并 熟悉 该 对 象 的 各 个 
属性 、 方 法 及 事件 。 

e Server 对 象 的 属性 

e@ Server 对 象 的 方法 


5.1 Server 对 象 概述 


Server 对 象 提 供 对 服务 器 上 的 方法 和 属性 的 访问 ， 其 中 大 多 数 方法 和 属性 是 作为 实用 
程序 的 功能 服务 的 ， 如 表 5-1 所 示 。 


表 5-1_Server 对 象 成 员 


方法 说 有明 
CreateObject(objName 创建 对 象 实体 
HIMLEncode(string HTML 字符 串 编码 
URLEncode(string 路 径 字 符 串 编码 
MapPath(urlString 取得 绝对 路 径 
Transfer(urlString 转向 至 指定 浏览 网 页 
Execute(urlString 执行 外 部 网 页 
GetLastError( 取得 Error 对 象 


在 这 些 成 员 中 ， 使 用 最 为 频繁 的 方法 是 CreateObject0， 它 使 网 页 可 以 创建 一 个 指定 的 
对 象 ， 同 时 利用 这 个 对 象 进行 所 需 的 相关 操作 。 例 如 ， 人 制作 数据 库 的 功能 首先 要 使 用 
CreateObject0 方 法 创建 所 需 的 ADO 对 象 ， 其 他 的 方法 包含 改变 网 页 的 文字 输出 格式 ， 获 
取 网 页 路 径 等 。 
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S.2 ”Server 对 象 的 属性 


用 户 在 上 网 时 经 常会 发 现 ， 当 打开 一 个 页 面 后 有 时 会 出 现 很 长 时 间 的 延 时 现象 。 这 是 
因为 程序 的 脚本 过 大 ， 执 行 脚 本 需要 用 户 等 待 很 长 一 段 时 间 ， 要 解决 这 样 的 问题 ， 在 ASP 
处 理 运行 时 间 过 长 的 脚本 可 以 采用 Server 对 象 的 ScriptTimeonut 属性 来 实现 。ScriptTimeout 
属性 是 指定 一 个 脚本 延 时 时 间 期 限 ， 其 引用 的 一 般 格式 如 下 : 

Server.ScriptTimeout=NumSeconds 

其 中 ，NumSeconds 参数 指定 脚本 在 被 服务 器 结束 前 最 大 可 运行 的 秒 数 。 若 脚本 超过 
该 时 间 限 度 仍 没 有 执行 完毕 ， 将 被 终止 ， 并 显示 超时 错误 提示 (该 属性 的 单位 为 秒 ， 默 认 值 
为 90 秒 )。 
注意 : 

Server 对 象 只 有 一 个 ScriptTimeonut 属性 ， 它 用 于 指定 一 个 脚本 延 时 的 时 间 期 限 。 脚 本 
超过 ScriptTimeonut 属性 设置 时 间 将 做 超时 处 理 , 终止 没有 完毕 的 响应 并 提示 超时 错误 


运 和 
全 
ER 


y 


i 
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以 下 程序 规定 如 果 服 务 器 处 理 脚本 时 间 超 过 120 秒 ， 则 使 其 超时 : 
<% 
Server. ScriptTimeout=120 
%> 


在 获取 ScriptTimeout 属性 当前 的 值 后， 将 其 存储 在 变量 Timeout 中 。 
<% 


TimeOut=Server.ScriptTimeout 
%> 


在 一 些 特殊 场合 中 , 存在 脚本 运行 时 间 大 于 90 秒 的 情况 。 例如 当 脚 本 声场 一 个 非常 大 
的 主页 时 ， 主 页 显示 到 一 半 时 间 就 过 了 限制 时 间 ， 这 时 就 需要 利用 Server 对 象 的 
ScriptTimeonut 属性 来 设 定 脚本 的 限制 时 间 。 
【 例 5-1】 在 网 页 中 随机 显示 一 个 星 号 ， 查 看 限制 时 间 对 页 面 响应 的 限制 作用 。 
(1) 创建 一 个 名 称 为 test34.asp 的 网 页 ， 其 代码 如 下 所 示 : 


<%Server.ScriptTimeOut=150%> 
<% 
For k=1 to 10 
Nextsecond=dateAdd("s".10.time) 
Do While time<nextsecond 
loop 
starx=starx+10*rnd0 一 1 
For i=] to starx 
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Response. Write ("&nbsp") 
Next 
Response. Write ("*<p>") 
Next 
%> 


(2) 运行 以 上 程序 后 ， 页 面 中 将 显示 星 号 ， 显 示 限 制 时 间 对 页 面 响应 的 限制 作用 。 
5.3 ”Server 对 象 的 方法 


Server 对 象 最 常用 的 方法 是 创建 服务 器 组 件 的 实例 (Server.CreateObject)， 其 他 方法 用 于 将 
URL 或 HIML 编码 成 字符 串 ， 将 虚拟 路 径 映 射 到 物理 路 径 ， 以 及 设置 脚本 的 超时 期 限 等 。 


5.3.1 HTMLEncode() 方 法 


HTMLEncode0 方 法 对 指定 的 字符 串 应 用 HTML 编码 .HTMLEncode0 方 法 引用 的 一 般 格 

式 如 下 : 
Server.HTMLEncode(string) 

其 中 ，string 参数 是 指定 要 编码 的 字符 串 。 无 论 一 个 HTML 文件 还 是 一 个 ASP 文件 ， 最 
终 交 给 浏览 器 解释 的 文档 都 是 一 个 纯 HTML 的 文本 文件 。 因 此 ， 对 于 该 文件 中 所 有 的 HTML 
标记 ， 浏 览 器 都 将 进行 解释 。 也 就 是 说 ， 在 浏览 器 窗口 中 无 法 显示 HTML 源 代码 。 

在 HIML 语言 中 有 一 种 转 义 符 ， 浏 览 器 在 解释 转 义 符 时 ， 只 将 转 义 符 对 应 的 字符 或 字符 
串 转化 显示 在 浏览 器 上 ， 而 不 进行 HTML 的 标记 解释 ,但 同样 把 HTML 标记 转化 为 转 义 符 发 
送 至 浏览 器 ， 这 样 就 可 以 在 浏览 器 上 看 到 HTML 标记 。 例 如 下 面 的 程序 代码 所 示 : 


<% 
Dim htmstring 
Htmstring=" 输 出 一 个 HTML 标记 : <html>" ‘htmstring 赋值 
Htmstring=Server.HTMLEncode(htmstring) ' 对 htmstring 的 值 进行 编码 
Response.write htmstring 输出 htmstring 的 值 
%> 


使 用 HTMLEncode0 方 法 ，htmstring 就 变 成 了 一 个 字符 串 。 
输出 一 个 HTML 标记 : &ithtml&gt， 将 这 个 字符 串 显示 在 浏览 器 时 ， 浏 览 器 又 将 各 转 义 
符 还 原 成 HTML 标记 ， 显 示 在 窗口 中 。 以 上 代码 的 运行 结果 如 图 5-1 所 示 。 
利用 HTMLEncode0 方 法 可 以 将 一 个 指定 的 字符 串 按 HTML 的 编码 输出 。 例 如 以 下 代码 
所 示 : 
<html> 


<head> 
<title>HTMLEncode</title> 


第 5 章 Server 对 象 “105。 


</head> 
<body bgcoloer="#fffpff"> 
<% 
Tesponse.write"<b>hello</b><i>word</i>" 
Tesponse.write"<p>" 
' 对 "<b>hello</b><i>word</i>" 进 行 编码 输出 
Tesponse.write server.htmlencode("<b>hello</b><i>world</i>") 
response.write"<p>" 
response.write"Nanjing&Beijine" 
Tesponse.write"<p>" 
输出 编码 后 的 Nanjing&Beijing 
response.write server.URLencode("Beijing and shanghai") 
%> 
</body> 
</html> 


以 上 代码 运行 后 的 结果 如 图 5-2 所 示 。 
GO- | xie BB) 


文件 到 ) ”编辑 下 ) 查看 如) 收藏 洋人 » 


Oe le … Bl x .| 


文件 中 ”编辑 时) 查看 收藏 天 (4) 工具 各) ” 


窗 收 藏 天 赂 http:/1localhost/l asp 


输出 一 个 HTML 标记 ;<html> 


helloword 


b>hello</b> iworld</i> 


Nanjing&Beijing 


回 Bei jingtandtshanghai 
本 地 Intranet [两 -二 ly -及 [TR [EET 
图 5-1 输出 一 个 HTML 标记 5-2 ”指定 字符 串 字符 串 按 HTML 的 编码 输出 


5.3.2 ”URLEncode() 方 法 


URLEncode0) 方 法 是 将 URL 编码 规则 (包括 转 义 字符 ) 应 用 到 指定 的 字符 串 。 

URLEncode() 方 法 引用 的 一 般 格 式 如 下 : 
Server.URLEncode(string) 

其 中 string 参数 指定 要 编码 的 字符 串 。 就 像 HTMLEncode0 方 法 一 样 可 以 将 字符 串 翻 
译 为 可 接受 的 HTML 格式 .URLEncode0 方 法 用 于 将 一 个 指定 的 字符 串 按 URL 的 编码 输出 。 
当 字 符 数据 以 URL 的 形式 传递 到 服务 器 时 , 在 字符 串 中 不 允许 出 现 空格 , 也 不 允许 出 现 特 
殊 字 符 。 如 果 在 发 送 前 进行 URL 编码 ， 就 可 以 使 用 URLEncode 编码 ， 即 利用 
Server.URLEncode0 方 法 。 

例如 ， 以 下 所 示 的 程序 会 将 给 定 的 字符 串 翻译 成 可 作为 URL 接受 的 格式 : 
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<% 


Response.write Server.URLEncode("[test]") ' 按 URL 编码 输出 [test] 
%> 


以 上 代码 运行 结果 如 图 5-3 所 示 。 


【 例 5-2】 参考 上 面 的 代码 , 在 ASP 网 页 中 同时 输出 经 过 URL 编码 后 的 与 编码 前 的 字 
符 串 。 


(1) 创建 一 个 名 称 为 test35.asp 的 网 页 ， 其 代码 如 下 所 示 : 
<% 
dim urlstring 
urlstring="http://www.sina.com" 
response.write"<h2> 编 码 前 的 字符 串 如 下 。"&urlstring&"</h2><br>" 
urlstring=Server.URLEncode(urlstring) 


response.write"<h2> 编 码 后 的 字符 串 如 下 。"&urlstring&"</h2>" 
%> 


i 


(2) 运行 以 上 程序 后 ， 结 果 如 图 5-4 所 示 。 
GO le /n.. dla 
文件 中 编辑 @@ 可 看 收藏 史 > 
窟 路 记 天 居 http://locdhost/l. amp 


%5Btest%5D 


到 编码 后 的 字符 事 如 下 。httpw3AS2FY2Fwww2Fsina2Ecom 
| 隔 相 地 Intranet 100% = 网 


了 


[nA 


图 5-3 输出 结果 图 5-4 输出 URL 编码 前 后 的 字符 串 


5.3.3 ”MapPath() 方 法 


MapPath() 方 法 将 指定 的 相对 或 虚拟 路 径 映射 到 服务 器 上 相应 的 物理 目录 上 。MapPath() 
方法 引用 的 一 般 格式 如 下 : 


Server.MapPath(Path) 


其 中 ，Path 参数 指定 要 映射 物理 目录 的 相对 或 虚拟 路 径 。 若 Path 以 一 个 正 斜 杠 (0) 或 反 
斜 杠 Q) 开 始 , 则 MapPath0 方 法 返回 路 径 时 将 路 径 视 为 完整 的 虚拟 路 径 。 若 路 径 不 是 以 斜 杠 
开始 ， 则 MapPath0 方 法 返回 同 ASP 文件 中 已 有 的 路 径 相对 的 路 径 。 

例如 ， 以 下 程序 示例 表示 使 用 服务 器 变量 PATH_INFO 映射 当前 文件 的 物理 路 径 : 


<% 


Tesponse.write server.mappath(request.servervariables("PATH_INFO")) 
%><BR> 
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其 输出 结果 如 图 5-5 所 示 。 
下 面 的 程序 代码 中 ,路 径 参数 不 是 以 斜 杠 字符 开始 的 ， 它 们 被 相对 映射 到 当前 目录 (也 
就 是 服务 器 的 主 目录 ， 例 如 D:\inetpub\Wwwwroot)。 


<% 
Tesponse. write server.mappath("page.txt") 
%><BR> 
<% 
Tesponse.write server.mappath("asp/page.txt") 
%><BR> 
其 输出 结果 如 图 5-6 所 示 。 


GO en.... Il Gs. 四 Ice 


文才 四 “全 本 四 “查看 由， 收 藉 天国 ， 工 具 上 ，。 ” 
文件 下 编辑 下 ) 查看 QW | 收藏 严 ! > 这 http/NocuposVLap | | 侧 - 
壹 收 蕊 严 。 略 http:/1localhost/l asp 到 


d:Vinetpub\wmmroot\page. txt 
d: Ninetpub\wwwroot\Vasp\page. txt 


d:\inetpub\wwwroot\l. asp 


剧 
阿 刷 昌 intraaet [Fa -|[ 玉 100% - 及 [MEE [i -| 
5-5 映射 当前 文件 的 物理 路 径 图 5-6 ”相对 映射 到 当前 目录 
下 面 的 程序 则 使 用 正 斜 杠 () 与 反 斜 杠 \)， 返 回 主 目录 的 物理 路 径 。 
<% 
response.write server.mappath("\") 
%><BR> 
<% 
response.write server.mappath("/") 
%><BR> 
其 输出 结果 如 图 5-7 示 。 


文件 到 ) 编辑 也) 格式 0) 查看 帮助 0 
<% 


GO 由 http://1oc. -| [名 用 
文件 字 ) 编辑 人) ”查看 QW 收藏 夹 ! > 
< 窗 收 戌 夹 。 惧 http://localhost/1.asp 


response -write server.mappath("/") 


response -write server .mappath("\") 
><BR> 


d:\inetpub\wwwroot 
d:\inetpub\mwwwroot 


| 
隔 丰 地 intraaet [有 -R100% -及 
图 5-7 ”使 用 正 斜 杠 (/) 与 反 斜 杠 (返回 主 目录 
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5.3.4 ”CreateObject() 方 法 


CreateObject0 方 法 是 Server 对 象 的 最 重要 方法 ， 用 于 创建 已 注册 到 服务 器 上 的 组 件 的 
实例 。CreateObject0 方 法 引用 的 一 般 格式 如 下 : 
Server.CreateObject(progID) 


其 中 ，progID 参数 是 指定 要 创建 的 对 象 类 型 。CreateObject0 方 法 是 一 个 非常 重要 的 特 
性 ， 因 为 使 用 ActiveX 组 件 能 够 扩展 ActiveX 的 功能 。 使 用 ActiveX 组 件 可 以 实现 一 些 仅 
靠 脚 本 无 法 实现 的 功能 ， 例 如 数据 库 访问 和 文件 访问 等 。 
用 于 创建 的 组 件 可 以 是 所 有 ActiveX 能 使 用 的 内 置 组 件 ， 实 际 上 是 存在 与 服务 器 所 谓 
所 有 ActiveX 组 件 。 在 ASP 文件 中 ， 用 以 下 方法 可 以 将 创建 的 对 象 赋值 给 一 个 变量 ; 
<% 
Set conn=Server.CreateObject(“ADODB.connection”) 
%> 
其 中 , ADODB 是 ASP 服务 器 的 一 个 组 件 , 用 于 处 理 数据 库 操作 。 当 创建 一 个 组 件 后 ， 
用 户 可 以 利用 其 提供 的 属性 和 方法 来 实现 相应 的 功能 。 
当 创建 一 个 对 象 后 ， 若 不 再 需要 该 对 象 ， 应 释放 其 所 占用 的 资源 ， 释 放 语句 如 下 : 


<% 


Set conn=nothing 
%> 


注意 : 
CreateObject( 方 法 中 的 组 件 是 指定 的 关键 字 , 用 户 不 能 用 该 方法 建立 系统 内 建 的 对 象 ， 
例如 Request 或 Response 等 。 


5.3.5 Transfer() 方 法 


Transfer( 方 法 把 执行 流程 从 当前 的 ASP 文件 转 到 同一 服务 器 上 的 另 一 个 ASP 页 面 。 
它 的 功能 和 Response 对 象 的 Redirect( 方 法 重 定向 浏览 器 功能 类 似 ， 但 两 者 在 工作 原理 上 
有 一 定 的 差别 。 

使 用 Response.Redirect() 方 法 重 定向 操作 的 整个 过 程 中 , 客户 端 与 服务 器 要 进行 两 次 来 
回 的 通信 。 第 一 次 通信 是 对 原始 页 面 的 请 求 ， 得 到 一 个 目标 已 经 改变 的 应 答 ， 第 二 次 通信 
是 请 求 Response.RedirectO 指 向 的 新 页 面 ， 得 到 重 定向 之 后 的 页 面 。 

使 用 Server.Transfer0 方 法 时 ， 客 户 端 与 服务 器 只 需要 进行 一 次 通信 ， 它 将 终止 执行 当 
前 的 ASP 页 面 , 执行 流程 转 入 另 一 个 ASP 页 面 , 但 新 的 ASP 页 面 仍 使 用 前 一 个 ASP 页 面 
创建 的 通信 。Transfer0 方 法 需要 的 网 络 通信 和 量 较 小 ， 从 而 可 获得 更 好 的 性 能 和 浏览 效果 ， 
其 语法 结构 如 下 : 

Server.Transfer (URL 地 址 名 称 ) 
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注意 : 
使 用 Server.Transfer() 方 法 实现 页 面 之 间 的 跳 转 后 ， 浏 览 器 中 的 URL 不 会 改变 ， 因 为 
重 定 向 完全 在 服务 器 端 进行 。 


5.3.6 “Execute() 方 法 


Execute0 方 法 用 来 在 当前 的 ASP 页 面 执行 同一 Web 服务 器 上 指定 的 另 一 个 ASP 页 面 。 
当 指定 的 ASPO 页 面 执行 完毕 ， 控 制 流程 重新 返回 原 页 面 发 出 ExecuteO 调 用 的 位 置 。 
Execute( 方 法 类 似 于 许多 编程 语言 的 过 程 调 用 ， 只 不 过 过 程 调用 是 执行 一 个 过 程 ， 而 
Execute0 方 法 是 执行 一 个 完整 的 ASP 文件 。 其 语法 结构 如 下 : 
Server.Execute (URL 地 址 名 称 ) 


【 例 5-3】 使 用 Server.Execute() 方 法 ， 在 一 个 ASP 文件 中 调用 执行 男 一 个 ASP 文件 ， 
其 程序 运行 效果 如 图 5-8 所 示 。 
(1) 创建 一 个 名 称 为 test36.asp 的 网 页 ， 其 代码 如 下 所 示 ( 如 图 5-11 所 示 ): 
<p> 这 是 第 一 个 页 面 ! </p> 
<% 
Response.Write "当前 的 会 话 编号 为 : "&Session.SessionID&"<Br>" 


Response.Write "下 面 准备 执行 Server Execute 方法 调用 第 二 个 页 面 "&"<Br>" 
Server.Execute("test37.asp") 


Response.Write "执行 完 Server.Execute 方法 后 返回 到 第 一 个 页 面 "&"<Br>" 
%> 
(2) 以 上 代码 保存 至 服务 器 主 目录 中 。 
(3) 创建 一 个 名 称 为 test37.asp 的 网 页 ， 其 代码 如 下 所 示 : 
<p> 这 是 第 二 个 页 面 的 内 容 ! </p> 
<% 


Response.Write "当前 的 会 话 编号 为 :"&Session.SessionID&"<Br>" 
%> 


(4) 将 以 上 代码 保存 至 服务 器 主 目录 中 后 ， 运 行 test36.asp 页 面 ， 结 果 如 图 5-8 所 示 。 


SND mM ue 
和 NE Bi | | 
区 test37 - 记事 本 习 | 


文件 中 编辑 包 ) 格式 Q) 查看 | 帮助 0 a 
人 ny 


es ponse .ilite "当前 的 会 话 编号 为 ， 这 是 第 二 个 页 面 的 内 容 | 


"“&Session.SessionID&"<Br>" 


当前 的 会 话 655669385 
执行 充 Server.Eecule 方 法 后 返回 到 第 一 个 页 而 


J 
TT aie | 


图 5-8 调用 其 他 ASP 文件 内 容 
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注意 : 

使 用 Transfer0 方 法 或 Execute(0) 方 法 时 , 最 后 得 到 的 页 面 可 能 不 是 合法 的 HTML 页 面 ， 
因为 最 终 返 回 给 客户 端的 页 面 可 能 包含 多 个 <HTML> 和 <BODY> 等 标记 ， 所 以 需要 多 次 对 
页 面 进行 测试 。 


5.3.7 ” GetLastError() 方 法 


GetLastError0 方 法 返回 一 个 ScriptError 对 象 , 用 于 捕捉 当前 ASP 程序 的 运行 错误 并 向 
用 户 返 回 有 用 的 信息 ， 如 错误 描述 和 发 生 错误 的 行 号 等 。 其 语法 结构 如 下 : 


Server.GetLastError 0 
54 习 题 
5.4.1 填空 题 
1. Server 对 象 提供 方法 用 以 转换 HTML 标签 ， 避 免 这 些 特定 字符 被 浏览 


器 进一步 作 解 译 。 
2. Transfer 方法 把 执行 流程 从 当前 的 ASP 文件 转 到 同一 台 服 务 器 上 的 另 一 个 ASP 页 


面 。 它 的 功能 和 的 重 定向 浏览 器 功能 类 似 ， 但 两 者 在 工作 原理 上 
有 一 定 的 差别 。 

3. 用 来 在 当前 的 ASP 页 面 执行 同一 台 Web 服务 器 上 指定 的 另 一 个 ASP 
页 面 。 当 指定 的 ASP 页 面 执行 完毕 ， 控 制 流程 重新 返回 原 页 面 发 出 调用 的 
位 置 。 

4. 返回 一 个 ， 用 于 捕捉 当前 ASP 程序 的 运行 错误 并 向 用 户 返 


回 有 用 的 信息 ， 如 错误 描述 和 发 生 错误 的 行 号 等 。 
5.4.2 ”选择 题 


1. 执行 语句 a=Server.URLEncode("b ec") 后 ， 变 量 a 的 值 是 ( 。 )。 
A.bc B.b+c CHo” D. "b&nbsp:c" 

2. 如 果 要 返回 应 用 程序 根 目录 的 物理 路 径 ， 那 么 MapPath 方法 的 参数 可 以 是 ( )。 
入 nn B. En D. "Ci\Inetpub\wwwroot" 

3. 如 果 将 6-4.asp 中 的 Execute 方法 替换 为 Transfer, 那么 6-5.asp 中 的 ScriptTimeOut 属性 


A.90 B. 100 C.300 D. 以 上 都 不 对 
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4. 如 果 将 6-4.asp 中 的 Server Execute 方法 替换 为 Response.Redirect， 那 么 6-5.asp 中 
ScriptTimeOut 属性 值 是 (。”)。 
A.90 B. 100 C.300 D. 以 上 都 不 对 
5. 如 果 在 页 面 1 中 添加 Server.ScriptTimeOut=300， 并 在 同一 网 站 的 页 面 2 中 添 
a=Server.ScriptTimeOut， 请 问 变量 a 的 值 等 于 ( js 
A.60 B.90 C. 300 D. 以 上 都 不 对 
6. 在 给 对 象 变量 赋值 时 ， 一 般 要 使 用 下 面 (  ) 关 键 字 。 
A. Dim B. Set C. Public D. Private 
7. 执行 语句 a=Server.HTMLEncode("<p>") 后 ， 变 量 a 的 值 是 ( )。 
A.p B. <p> we D."&ltp&gt" 


5.4.3 问答 题 


1. 简 述 Server 对 象 的 属性 。 
2. 简 述 Server 对 象 的 方法 。 
3. 简 述 Execute0、Transfer0 和 Redirect0 方 法 的 主要 区 别 。 


5.4.4 ”操作 题 


1. 开发 一 个 函数 ， 可 以 基本 实现 HTMLEncode() 方 法 的 功能 (提示 : 使 用 Replace 函数 
替换 “人 和 、> 和 <” 为 对 应 的 字符 实体 )。 

2. 参考 本 章 练习 的 操作 ， 使 用 Server.Transfer0 方 法 将 一 个 ASP 文件 中 的 内 容 传输 到 
另 一 个 ASP 文件 中 。 
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本 章 将 介绍 两 个 重要 的 ASP 内 建 对 象 一 一 Application 对 象 和 Session 对 象 。 其 中 ， 
Application 对 象 可 以 在 所 有 用 户 之 间 共 享 信息 ， 并 在 服务 器 运行 期 间 持久 地 保存 数据 。 而 且 
Application 对 象 还 有 控制 访问 应 用 层 数据 的 方法 和 可 用 于 在 应 用 程序 启动 和 停止 时 触发 过 程 
的 事件 。Session 对 象 更 接近 于 普通 应 用 程序 中 的 全 局 变量 ， 全 局 变量 在 程序 执行 的 过 程 中 始 
终 有 效 ， 其 他 用 户 同时 启动 该 程序 的 另 一 个 副本 ， 该 程序 的 两 个 实例 使 用 各 自 的 全 局 变量 , 在 
两 个 进程 之 间 不 能 互相 访问 。 

教学 目标 

通过 对 本 章 的 学 习 ， 读 者 应 了 解 和 掌握 Application 对 象 和 Session 对 象 的 基础 知识 ， 
熟悉 它们 的 各 个 属性 、 方 法 及 事件 。 


教学 重点 与 难点 

e Application 对 象 的 方法 
e Session 对 象 的 方法 

e Session 对 象 的 事件 


6.1 Application 对 象 


-个 Application 对 象 就 是 在 硬盘 上 的 一 组 主页 以 及 ASP 文件 ， 当 一 个 ASP 加 入 了 一 
个 Application 对 象 ， 那 么 ， 它 就 拥有 了 作为 单独 主页 所 无 法 拥有 的 属性 。 下 面 将 介绍 
Application 对 象 的 特性 以 及 在 网 页 设计 中 的 应 用 。 


6.1.1 Application 对 象 概述 


Application 对 象 是 个 应 用 程序 级 的 对 象 , 它 可 以 产生 一 个 全 部 的 Web 应 用 程序 都 可 以 
存 取 的 变量 ， 所 有 的 客户 都 可 以 访问 这 个 变量 。 

应 用 程序 是 驻 留 在 Web 站 点 的 特定 目录 中 的 一 组 文件 。 每 个 Web 站 点 上 可 以 有 多 个 
应 用 程序 ， 还 可 以 根据 某 个 任务 为 一 些 ASP 文件 创建 一 个 应 用 程序 。 例 如 ， 创 建 一 个 应 用 
程序 作为 全 部 客户 服务 后 ， 再 创建 一 个 新 的 应 用 程序 作为 网 络 管理 员 服 务 。 

应 用 程序 的 运行 实例 用 Application 对 象 表 示 , 其 生存 期 从 请 求 该 应 用 程序 的 第 一 个 页 
面 开始 (不 是 从 服务 器 启动 开始 )， 直 到 Web 站 点 关闭 时 结束 。 由 于 存储 在 Application 对 象 
中 的 数据 可 以 被 应 用 程序 的 所 有 用 户 共享 , 因而 Application 对 象 特别 适合 在 应 用 程序 的 不 
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同 用 户 之 间 传 递 信息 。 
Application 对 象 本 身 提 供 了 一 些 方法 与 集合 , 用 以 处 理 ASP 应 用 程序 的 各 种 状态 与 特 
性 ， 如 表 6-1 所 示 。 


表 6-1 Application 对 象 成 员 


对 象 成 员 说 了 明 
庆 Contents 储存 Application 对 象 变量 值 
StaticObjects 储存 Application 对 象 标签 <Object> 变 量 
Contents.Remove(valName) 移 走 Contents 集合 中 的 特定 元 素 
、 Contents.RemoveAll 移 走 Contents 集合 中 的 所 有 元 素 
8 Lock0 锁定 Application 对 象 存 取 
UnlockO 释放 被 锁定 的 Application 对 象 
OnStart ASP 应 用 程序 第 一 次 启动 时 被 触发 
ww OnEnd ASP 应 用 程序 结束 时 被 触发 
注意 : 


一 个 应 用 程序 的 根 目 录 由 IIS 的 Internet 信息 服务 程序 来 设 定 , 根 目录 下 的 每 个 文件 和 
目录 都 属于 该 应 用 程序 。 应 用 程序 和 应 用 程序 之 间 是 不 能 互相 重合 的 ， 如 果 其 中 的 某 一 个 
子 目 录 也 被 创建 为 一 个 根 目录 ， 那 它 将 被 认为 是 一 个 新 的 应 用 程序 。 


6.1.2 Application 对 象 的 属性 


Application 对 象 没 有 内 置 属性 ， 用 户 可 根据 需要 自行 创建 。 创 建 一 个 属性 后 ， 在 整个 
应 用 程序 运行 期 间 ， 此 属性 的 值 都 可 以 被 所 有 的 用 户 访问 。 如 下 面 的 代码 定义 了 一 个 
Application 对 象 的 属性 Welcome: 
<% Application("Welcome")=" 本 网 站 属于 非 营 利 性 商业 网 站 " %> 
每 个 Application 变量 都 是 Contents 集合 中 的 一 个 成 员 。 创 建 一 个 新 的 Application 变 
量 ， 其 实 就 是 在 Contents 集合 中 添加 一 项 新 的 内 容 。 例 如 ， 上 面 一 句 代码 也 可 以 写 为 : 
<% Application.Contents("Welcome")=" 本 网 站 属于 非 营 利 性 商业 网 站 " %> 
Contents.Remove() 方 法 可 以 从 Contents 集合 中 删除 一 个 成 员 ， 而 Contents.RemoveAll() 
方法 可 以 删除 Contents 集合 中 的 所 有 成 员 ， 如 下 例 所 示 : 
<% Application.Contents.Remove("Welcome'") %> 
Contents 集合 包含 了 所 有 的 Application 变量 ， 可 使 用 For...Each 循环 全 部 列举 或 显示 
Application 变量 的 值 ， 如 下 例 所 示 : 
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<% 


For Each item in Application.Contents 


Response. Write ("<Br>"&item&"="&Application.Contents(item)) 


Next 
%> 


6.1.3 ”Application 对 象 的 方法 


Application 对 象 对 于 网 站 所 有 的 网 页 和 在 线 用 户 来 说 ， 是 
何人 在 任何 时 间 都 有 可 能 对 其 进行 存 取 。 当 一 个 Application 对 象 在 同一 个 时 间 被 在 取 ， 此 


时 冲突 就 会 发 生 ， 因 此 ， 对 于 Application 对 象 ， 适 当地 限制 用 户 存 取 非 常 重要 。 


Application 对 象 包含 Lock0 和 UnLockO 两 种 方法 。Lock0 方 法 用 于 锁定 Application 对 
象 ， 保 证 同一 时 刻 只 有 一 个 用 户 可 以 操作 其 中 的 数据 ， 避 免 多 个 用 户 同时 修改 同一 数据 而 
产生 的 冲突 。UnLock0 方 法 用 于 解除 Lock0 方 法 对 数据 的 锁定 ， 以 便 其 他 月 
改 Application 对 象 的 属性 。Lock0 和 “UnLock0 两 种 方法 总 是 成 对 出 现 的 ， 这 样 可 以 确保 


Application 对 象 中 数据 对 所 有 用 户 的 完整 性 和 一 致 性 。 
【 例 6-1】 制 作 一 个 网 站 计数 器 ， 程 序 运行 效果 如 图 6-1 所 示 。 
(1) 创建 一 个 名 称 为 test38.asp 的 文件 ， 其 代码 如 下 所 示 : 


<% 


Application.Lock "锁定 Application 对 象 , 保证 只 有 当前 用 户 对 计数 器 进行 操作 


Application("user_num")= Application("user_ num")+1 “计数 器 值 加 1 
Application UnLock "解除 锁定 ， 其 他 用 户 可 对 计数 器 进行 操作 了 
Response.write(" 此 页 面 已 经 被 访问 过 " &Application("user_num")&" 次 ") "输出 结果 


%> 


(2) 运行 test38.asp 文件 后 的 结果 如 图 6-1 所 示 。 


6.1.4 Application 对 象 的 事件 


Application 对 象 包含 Application_ OnStart 和 Application OnEnd 两 个 事件 。 当 网 站 的 第 


图 6-1 网 站 计数 器 
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此 页 面 已 经 被 访问 过 1 次 


置 
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日 户 能 访问 和 修 
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一 个 用 户 通过 浏览 器 打开 一 份 网 页 时 ，Application 对 象 就 会 被 自动 创建 ， 与 此 同时 ， 
Application 对 象 所 定义 的 OnStart 事件 便 会 被 触发 ， 对 于 ASP 网 页 的 程序 设计 师 而 言 ， 会 
将 焦点 放 在 所 触发 的 OnStart 事件 ， 整 个 网 站 一 开始 所 要 执行 的 工作 、 初 始 化 操作 的 相关 
程序 代码 ， 都 可 以 在 这 个 事件 里 面 做 处 理 。 
同样 , ASP 应 用 程序 网 站 被 关闭 时 , 系统 侦 测 到 最 后 一 个 用 户 离线 的 同时 , Application 
对 象 就 会 被 结束 。 所 有 ASP 应 用 程序 执行 期 间 ， 网 页 在 其 中 所 储存 的 数据 均 会 被 清除 。 此 
时 , OnEnd 事件 即 会 被 触发 , 处理 ASP 网 站 结束 时 所 需 的 程序 代码 可 以 被 放 在 这 个 事件 里 
面 做 处 理 。 

处 理 OnStart 和 OnEnd 事 件 的 相关 程序 必须 在 一 个 名 称 为 Global.asa 的 特殊 文件 中 做 处 理 。 
Application 对 象 创建 与 消失 时 ， 都 会 在 该 文件 内 进行 。 


6.1.5 使 用 Application 对 象 保存 数据 


在 Application 对 象 中 ， 它 保存 的 内 容 除 了 可 以 是 简单 数据 类 型 的 变量 和 普通 对 象 外 ， 
还 可 以 是 一 个 保存 有 多 个 值 的 数组 .创建 的 过 程 中 要 求 定义 一 个 普通 的 数组 并 将 值 赋 给 它 ， 
然后 将 数组 整体 定义 为 一 个 Application 对 象 ， 如 下 例 所 示 : 

<% 

dim ArrayO 
Array=Application("array") 
fori=0 to ubound(array) 
Response.write Array(i) 

nexti 
%> 


数组 在 Application 中 只 能 作为 一 个 对 象 保存 ,用 户 只 能 对 一 个 数组 整体 进行 存 取 操作 ， 
而 不 能 直接 改变 数组 中 某 个 元 素 的 值 。 对 Application 对 象 中 数组 值 的 修改 也 要 通过 普通 的 
数组 来 进行 。 

对 一 个 Application 对 象 中 的 数组 值 进行 修改 的 代码 如 下 所 示 。 


<% 
dim Array0 "定义 一 个 临时 数组 

Array=Application("array") ' 把 含有 数组 值 的 Application 对 象 赋 给 该 临时 数组 
Aray(0)=" 第 一 个 元 素 的 值 " "根据 需要 修改 这 个 数组 中 元 素 的 值 
Array(D)=" 第 二 个 元 素 的 值 " 
Application lock 
Application("array")=Array "最 后 把 数组 赋 回 Application 对 象 
Application.unlock 

96> 
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6.2 ”Session 对 象 


使 用 Session 对 象 ， 可 以 存储 特定 用 户 会 话 所 需 的 信息 。 当 用 户 在 应 用 程序 的 页 面 之 
间 跳 转 时 ， 存 储 在 Session 对 象 中 的 数据 始终 存在 ， 不 会 清除 。 


6.2.1 _ Session 对 象 概述 


Web 上 用 在 浏览 器 和 服务 器 之 间 传 送 请 求 和 响应 的 HTTP 协议 是 无 状态 协议 , Web 服 
务 器 将 每 个 页 面 请 求 都 当 作 独 立 的 请 求 ， 服 务 器 不 保留 以 前 请 求 的 任何 信息 。 

ASP 的 Session 对 象 弥补 了 HTTP 无 法 记忆 先前 请 求 的 缺陷 。Session 对 象 可 用 来 标识 
每 次 访问 的 用 户 并 收集 信息 ， 用 户 在 应 用 程序 的 页 面 之 间 跳 转 时 ， 该 Session 信息 仍然 存 
在 并 保持 不 变 。 在 用 户 与 网 站 服务 器 保持 联系 期 间 ， 应 用 程序 可 调用 这 些 存储 的 信息 来 跟 
踪 用 户 的 喜好 或 选择 。 

Session 对 象 同样 提供 了 多 种 成 员 ， 其 中 包含 属性 、 方 法 和 事件 ， 这 些 成 员 在 应 用 程序 


中 的 使 用 也 相当 广泛 ， 如 表 6-2 所 示 。 
表 6-2 Session 对 象 成 员 
对 象 成 员 说 阴 
集合 Contents 储存 Session 对 象 变量 值 
StaticObjects 储存 Session 对 象 <Objec 忆 变量 
Contents. Remove(valName, 移 走 Session 集合 中 的 特定 元 素 
方法 Contents.RemoveAllO 移 走 Session 集合 中 的 所 有 元 素 
Abandon0) 结束 当前 的 Session， 为 用 户 创建 一 个 新 的 Session 
事件 onStart 一 个 新 的 用 户 联机 进来 时 被 触发 
onEnd 一 个 用 户 结束 联机 时 被 触发 
CodePage 设 定 网 页 所 使 用 的 字符 编号 
LCID 存 取 网 页 设 定 的 区 域 识 别 
时 SessionID 代表 一 个 特定 用 户 的 唯一 Session 识别 ID 
TimeOnut 设 定 Session 对 象 的 存活 时 间 


Session 与 Application 对 象 的 应 用 范围 不 同 ， 但 概念 、 相 关 方 法 以 及 事件 的 处 理 机 制 
均 相同 。 Session 对 象 用 于 记载 单个 客户 的 信息 ，Web 服务 器 为 每 个 访问 者 建立 一 个 单独 的 
Session， 例 如 Session 对 象 可 以 记载 该 客户 的 用 户 名 称 及 个 人 爱好 等 。 

Application 对 象 可 以 记载 所 有 的 客户 信息 ， 例 如 Application 对 象 应 用 于 聊天 室 ， 大 家 
的 发 言 都 存放 到 一 个 Application 对 象 中 ， 彼 此 可 以 看 到 所 有 的 发 言 内 容 。 不 同 的 客户 必须 
访问 属于 自己 的 Session 对 象 ， 但 可 以 访问 公共 的 Application 对 象 。 
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6.2.2 Session 对 象 的 属性 


下 面 将 介绍 Session 对 象 的 SessionID 属性 与 TimeOut 属性 的 特性 。 
1. SessionID 属性 


用 户 第 一 次 请 求 应 用 程序 中 的 ASP 文件 时 ，ASP 将 生成 一 个 SessionID。SessionID 是 
通过 复杂 算法 产生 的 长 整 型 数据 ， 它 返回 用 于 当前 会 话 的 唯一 标志 符 。 新 的 会 话 开 始 时 ， 
它 将 自动 为 每 一 个 Session 分 配 不 同 的 编号 ， 服 务 器 将 SessionID 作为 Cookie 存储 到 用 户 
Web 浏览 器 中 。 

用 户 Web 浏览 器 创建 SessionID 的 Cookie 后 ， 用 户 请 求 其 他 ASP 文件 或 请 求 在 其 他 
应 用 程序 中 运行 的 ASP 文件 ，ASP 会 一 直 调 用 该 Cookie 来 跟踪 会 话 。 如 果 用 户 放弃 了 会 
话 或 在 会 话 超时 后 继续 请 求 其 他 ASP 文件 ，ASP 仍 将 调用 同一 Cookie 开始 新 的 会 话 。 只 
有 Web 服务 器 重新 启动 时 才 清 除 存 储 在 内 存 中 的 SessionID 设置 ， 或 用 户 重 新 启动 浏览 器 
时 才 可 能 收 到 新 的 SessionID Cookies。 如 下 例 将 取得 当前 用 户 的 SessionID 值 : 

<%Response.Write ("Hi， 您 的 SessionID 自动 编号 是 <b>" & SessionID. SessionID & " </b> ")%> 

2. TimeOut 属性 

TimeOut 属性 定义 了 应 用 程序 中 Session 对 象 的 时 限 。 如 果 用 户 在 TimeOut 规定 的 时 
间 内 没有 请 求 或 刷新 应 用 程序 中 的 任何 页 ，Session 对 象 就 会 自动 终止 。 默认 情况 下 ,服务 
器 只 保留 Session 对 象 20 分 钟 。 

对 于 特定 的 会 话 ， 如 果 要 设置 低 于 默认 应 用 程序 超时 的 超时 间隔 ， 可 通过 TimeOut 属 
性 来 设置 。TimeOut 属性 以 分 钟 为 单位 指定 超时 间隔 ， 如 下 例 将 超时 间隔 设 为 10 分 钟 : 


<% Session. TimeOut=10 %> 


注意 : 

通过 IIS 的 “Internet 信息 服务 ”程序 来 设置 会 话 超 时 ， 该 值 的 设置 取决 于 应 用 程序 的 
要 求 及 服务 器 的 内 存 容量 。 会 话 超时 如 果 设 置 过 长 ， 可 能 会 导致 打开 的 会 话 太 多 ， 这 将 增 
加 服务 器 内 存 资源 的 负担 。 


6.2.3 ”Session 对 象 的 方法 


Abandon() 方 法 是 Session 对 象 的 唯一 方法 , Abandon() 方 法 可 以 用 来 删除 用 户 的 Session 
对 象 并 释放 其 所 占用 的 资源 。 下 面 的 语句 将 用 于 消除 Session 对 象 : 


<% Session.Abandon %> 
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注意 : 


如 果 使 用 了 Abandon() 方 法 ，Session 对 象 将 被 重新 分 配 一 个 新 的 SessionID 值 。 


6.2.4 ”Session 对 象 的 事件 


Session 对 象 包含 Session OnStart 和 Session OnEnd 两 个 事件 。 当 网 站 一 个 新 的 用 户 上 
线 通 过 浏览 器 请 求 一 份 网 页 的 时 候 ， 这 个 用 户 的 专属 Session 对 象 就 会 被 创建 。Session 对 
象 所 定义 的 OnStart 事件 同时 被 触发 。 

当 一 个 用 户 离线 或 是 停止 任何 浏览 网 页 操作 时 ， 一 旦 过 了 Session 对 象 的 存活 期 限 ， 
代表 此 用 户 的 Session 对 象 就 会 被 结束 。 此 时 OnEnd 事件 即 会 被 触发 ， 处 理 用 户 离线 时 所 
需 的 程序 代码 可 以 放 在 这 个 事件 里 面 做 处 理 。 


注意 : 


OnStart 和 OnEnd 事件 的 相关 程序 与 Application 对 象 一 样 ， 都 是 在 Global.asa 文件 里 
面 做 处 理 。 


6.2.5 ”使 用 Session 对 象 记 录用 户 登录 信息 


下 面 以 一 个 简单 的 实例 介绍 利用 Session 对 象 来 记录 变量 内 容 的 方法 。 
【 例 6-2】 利 用 Session 对 象 记录 变量 内 容 ， 实 现 ASP 网 页 记录 用 户 登 录 信 息 的 效果 。 
(1) 创建 一 个 名 称 为 test39.asp 的 文件 ， 其 代码 如 下 所 示 : 
<% 
data=Session("data") 


Response.Write" 进 入 网 页 时 ,data="&data&"<BR>" 
data=data+1 


Response.Write" 网 页 结束 时 .data="&data&"<BR>" 
Session("data")=data 
%> 
(2) 运行 test39.asp 文件 后 的 结果 如 图 6-2 所 示 。 


http://1ocnlhestfte eI: EE 


突 收 太夫 赔 http://locuhosyte 


进入 网 页 时 ,data=1 
网 页 结束 时 , data=2 


RR http /ocdhostte 


进入 网 页 时 , data=7 
网 页 结束 时 , data=8 


到 刘 
DE ET [Rio ”4 [PE ET 


刷新 2 次 网 页 刷新 多 次 网 页 
图 6-2 ”记录 用 户 登录 信息 
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6.3 Globalasa 文件 


Globalasa 文件 是 用 来 存放 Application 对 象 和 Session 对 象 事件 的 程序 , 当 Application 
对 象 和 Session 对 象 第 一 次 被 调用 或 结束 时 ， 服 务 器 就 去 读 取 该 文件 并 进行 相应 的 处 理 。 
Global.asa 文件 是 一 个 文本 文件 ， 可 使 用 任何 文本 编辑 器 进行 编辑 。 下 面 就 是 一 个 标 
准 的 空白 Globalasa 文件 结构 : 
<SCRIPT LANGUAGE=VBScript RUNAT=Server> 
Sub Application OnStart 
' 当 第 一 个 用 户 运 行 ASP 应 用 程序 中 的 任何 一 个 页 面 时 执行 
End Sub 
Sub Application OnEnd 
' 当 Web 服务 器 关闭 时 执行 
End Sub 
Sub Session OnStart 
' 用 户 第 一 次 运行 ASP 应 用 程序 中 的 任何 一 个 页 面 时 执行 
End Sub 
Sub Session OnEnd 
' 当 一 个 用 户 的 会 话 超时 或 退出 应 用 程序 时 执行 
End Sub 
</SCRIPT> 


ASP 对 使 用 Global.asa 文件 有 以 下 几 条 要 求 : 
e 每 一 个 应 用 程序 可 能 由 很 多 文件 或 文件 夹 组 成 ， 但 只 能 有 一 个 Global.asa 文件 ， 而 
且 文 件 名 称 必须 叫 Global.asa。 
e 必须 存放 在 应 用 程序 的 根 目录 中 。 
e Global.asa 文件 不 能 写成 <%…%> 的 形式 ,如果 包 含 的 脚本 没有 用 <SCRIPT> 标 记 封 
装 ， 或 定义 的 对 象 没 有 会 话 或 应 用 程序 作用 域 ， 则 服务 器 将 返回 错误 。 服 务 器 会 忽 
略 已 标记 的 但 未 被 应 用 程序 或 会 话 事 件 使 用 的 脚本 和 文件 中 的 HTML 语句 。 
e 在 Globalasa 文件 中 不 能 包含 任何 输出 语句 ， 如 Response.Write， 因 为 Globalasa 
文件 只 是 被 调用 ， 而 不 会 显示 在 页 面 上 。 
【 例 6-3 】 通 过 Global.asa 文件 ， 使 用 Application 对 象 和 Session 对 象 显 示 网 站 的 在 线 
人 数 和 访问 人 数 ， 程 序 运行 效果 如 图 6-3 所 示 。 
(1) 创建 一 个 名 称 为 Global.asa 的 文件 ， 其 代码 如 下 所 示 : 
<SCRIPT LANGUAGE=VBScript RUNAT=Server> 
Sub Application OnStart 
Session.TimeOut=3 将 会 话 超时 设 为 3 分 钟 
Application.Lock ' 锁 住 Application 
Application("intuseronline")=0 初始 化 在 线 人 数 为 0 
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Application("intuserall")=0 "初始 化 访问 人 数 为 0 
Application.UnLock " 解 开 Application 
End Sub 
Sub Session OnStart 
Application.Lock 


' 当 一 次 新 用 户 会 话 开始 时 ， 使 在 线 人 数 和 访问 人 数 都 加 1 
Application("intuseronline")=Application("intuseronline")+1 
Application("intuserall")=Application("intuserall")+1 
Application.UnLock 

End Sub 

Sub Session OnEnd 
Application.Lock 
' 会 话 超时 或 用 户 退 出 时 ， 使 在 线 人 数 减 1 
Application("intuseronline")=Application("intuseronline")-1 
Application.UnLock 

End Sub 

</SCRIPT> 


(2) 将 Global.asa 文件 保存 至 服务 器 主 目录 中 。 
(3) 创建 一 个 显示 访问 人 数 的 ASP 页 面 test40.asp， 其 代码 如 下 : 
<h2 align="center"> 网 站 的 统计 数据 </h2> 
<% 
Response.Write "<Br> 当 前 网 站 在 线 人 数 是 :"&Application("intuseronline") 
Response.Write "<Br> 网 站 总 的 访问 量 是 : "&Application("intuserall) 
%> 
(4) 将 test40.asp 文件 保存 至 服务 器 主 目录 中 。 
(5) 运行 test40.asp 文件 后 的 结果 如 图 6-3 所 示 。 


网 站 的 统计 数 
GE -5 
ELT TT 
a i enter ER E| 当前 网 站 在 线 人 数 是 ，1 
TY ee 
I vor | [EE FRR | 


图 6-3 网 站 统计 数据 


注意 : 
.asa 是 文件 后 缓 名 ， 它 是 Active Server Application 的 首 字母 缩写 。Global.asa 文件 可 以 
管理 ASP 应 用 中 的 Application 和 Session 对 象 。 
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64 习 题 


6.4.1 填空 题 


1 


. ASP 提供 的 6 个 内 置 对 象 分 别 是 
和 ScriptError 对 象 。 


2. 每 个 Application 变量 都 是 集合 中 的 一 个 成 员 。 
3. 方法 用 于 锁定 Application 对 象 ， 方法 可 以 解除 对 
Application 对 象 的 锁定 。 
4. 默认 情况 下 ， 服 务 器 只 保留 Session 对 象 分 钟 。 
5. 如 果 使 用 了 方法 ，Session 对 象 将 被 重新 分 配 一 个 新 的 SessionID 值 。 
6. 文件 是 用 来 存放 Application 对 象 和 Session 对 象 事件 的 程序 。 
6.4.2 选择 题 
1. 下 面 程序 段 执行 完毕 后 ， 变 量 c 的 值 是 (  )。 


全 


SN 


2- 


<% Dim a: a="b": Session(a)=1: Session("b")=2: c=Session(b) %> 
A.l B.2 C.3 D. 空 (Empty) 


. 下 面 程序 段 执行 完毕 后 ， 变 量 b 的 值 是 ( )。 
<% Session("a")=1: Session.Abandon: Dimb: b=Session("a") %> 
A.0 B.1 C. 空 (Empty) D. 程序 出 错 
. Session 对 象 的 默认 有 效 期 为 (  ) 分 钟 。 
A.10 B15 C0 D.30 


. 下 面 程序 段 执行 完毕 ， 变 量 e 的 值 是 ( )。 


<9% Session("a")=1: Session("b")=2: c=Session("a")+Session("b") %> 
A.12 B.3 C.ab D. 以 上 都 不 对 


. 在 一 个 用 户 会 话 过 程 中 ， 会 触发 ( ) 次 Session OnStart 事件 。 


A.l B.2 DR D. 无 数 次 


. 在 一 个 应 用 程序 中 ，Global.asa 文件 可 以 有 (  ) 个 。 


A.0 B.1 人 D. 无 限 多 个 


. 在 应 用 程序 的 各 个 页 面 中 传递 值 ， 可 以 使 用 (  ) 对 象 。 


A. Request B. Response C. Session D. Application 
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6.4.3 问答 题 


1. 名 词 解释 : 会 话 、 状 态 。 

2. 在 一 个 页 面 中 ，Session 变量 、Application 变量 、 普 通 变 量 和 数组 变量 的 名 称 都 可 
以 一 样 吗 ? 

3. 如 果 客 户 端 浏 览 器 不 支持 Cookie， 那 么 能 支持 Session 吗 ? 

4. 请 问 在 Globalasa 文件 中 可 以 使 用 Response.Write 语句 吗 ? 

5. 请 简 述 Session 对 象 和 Application 对 象 各 自 的 作用 和 最 主要 的 区 别 。 

6. 请 问 什 么 信息 适合 用 Session 保存 ， 什 么 信息 适合 用 Application 保存 ? 


6.4.4 ”操作 题 


1. 编写 程序 实现 一 个 简单 的 聊天 室 ， 要 能 显示 发 言 人 姓名 ， 发 言 内 容 、 发 言 人 卫 地 
址 和 发 言 时 间 。 另 外 ， 要 求 过 滤 掉 用 户 输入 的 <p>、<br> 等 特殊 字符 。 

2. 编写 两 个 页 面 ， 在 第 一 个 页 面 中 用 户 要 输入 姓名 ， 然 后 保存 到 Session 中 ， 自 动 引 
导 到 第 二 个 页 面 。 在 第 二 个 页 面 中 读 取 该 Session 信息 ， 并 显示 欢迎 信息 。 如 果 用 户 没 有 
在 第 一 页 登录 就 直接 访问 第 二 页 ， 要 将 用 户 重 定向 回 第 一 页 。 

3. 编辑 一 段 查询 当前 SessionID 属性 值 的 ASP 程序 ， 以 显示 图 6-4 所 示 的 网 页 效果 。 

4. 编写 一 个 Globalasa 文件 ， 以 显示 图 6-5 所 示 的 网 页 效果 。 


-ID 
上 文件 吃 “W 短 加 查看 中 尿床 W 工艺 0 | 文件 四 编 委 @) Er 中 于 (工具 TD) 地” 部 
| -© a | Dar Hem [BO | 
[EW [ws /reness bo sesstoD wy EE [ED [Ms /hnermive oaLine sy 
本 实例 显示 SessionID 


欢迎 光临 森 网 站 , 当前 共有 3 人 在 线 


点 而 此 处 
RE 到 29 


到 | 
EE EE 


图 6-4 操作 题 3 示例 图 图 6-5 操作 题 4 示 例 图 
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ASP 的 常用 服务 器 组 件 包括 Ad Rotator 组 件 `.Browser 组 件 、FileSystem 组 件 .Content Linker 
组 件 、Dictionary 组 件 、Connection 组 件 、RecordSet 组 件 和 Command 组 件 等 。 组 件 实际 上 就 
是 已 经 在 服务 器 上 注册 的 ActiveX 控件 ， 用 户 也 可 以 利用 如 Visual Basic、C++、Visual C++、 
Java 等 开发 工具 创建 自己 的 组 件 。 

教学 目标 

通过 对 本 章 的 学 习 , 读者 应 了 解 一 些 ASP 内 置 组 件 的 属性 和 方法 ， 并 能 够 编程 实现 内 
置 组 件 的 一 些 基本 功能 。 


教学 重点 与 难点 

Ad Rotator 组 件 

Content Rotator 组 件 
Content Linker 组 件 
Browser Capabilities 组 件 


7.1 使 用 Ad Rotator 组 件 制 作 广告 轮 显效 果 


使 用 Ad Rotator 组 件 可 快速 在 网 站 上 建立 一 个 广告 系统 , 它 允许 在 每 次 访问 ASP 页 面 
时 在 页 面 上 显示 新 的 广告 ， 并 且 提供 了 很 强 的 功能 ， 例 如 ， 旋 转 显 示 在 页 面 上 的 广告 图 像 
的 能 力 、 跟 踪 特 定 广告 显示 次 数 的 能 力 以 及 跟踪 客户 端 在 广告 上 单 击 次 数 的 能 力 。 下 面 将 
具体 介绍 Ad Rotator 组 件 的 应 用 。 

Ad Rotator 组 件 的 用 法 与 内 置 对 象 非常 相似 ， 首 先 要 用 到 Server 对 象 的 CreateObject 
方法 创建 对 象 实例 。Ad Rotator 组 件 共 有 3 个 属性 和 1 种 方法 ， 如 表 7-1 所 示 。 


表 7-1 Ad Rotator 组 件 


属性 或 方法 功能 说 明 使 用 方法 
Border 属性 设 定 广告 图 片 的 边 宽大 小 Ad.BorderSize(size) 
Clickable 属性 设 定 广告 图 片 是 否 提 供 超 链接 功能 Ad.Clickable(Boolean, 


TargetFrane 属性 
GetAdvertisement0 方 法 


设 定 超 链接 后 浏览 Web 页 面 的 目标 窗口 
取得 广告 信息 文件 


以 上 属性 与 使 用 方法 如 下 所 示 : 


Ad.TargetFrame(target) 
Ad.GetAdvertisement(string) 


“124- ASP 动态 网 站 开发 基础 教程 (第 4 版 ) 


<% 
Set mayad=Server.CreateObject("MSWC.AdRotator") 
Myad.BorderSize(1) "设置 广告 图 片 的 边 宽 为 1 
Myad.Clickable(true) ' 为 广告 图 片 设置 超 链接 
Myad.TargetFrame(_ self) "设置 浏览 Web 页 面 的 目标 窗口 
%> 
<% 
=Mad.GetAdvertisement(adrot.txt) 获取 广告 信息 内 容 文件 adrottxt 


%> 

Ad Rotator 组 件 用 于 网 站 上 轮流 显示 广告 的 内 容 。 按 照 广告 商 给 网 站 的 资金 量 来 安排 
各 个 不 同 广告 内 容 的 出 现 概率 。 每 次 页 面 重新 载 入 到 浏览 器 时 ， 程 序 都 会 根据 概率 来 选中 
广告 条 。 使 用 该 组 件 显示 广告 需要 以 下 3 个 文件 : 

e AD Rotator 计划 文件 记录 所 有 广告 信息 。 

。 重 定向 文件 对 单 击 广告 条 的 事件 进行 处 理 。 

e 广告 显示 页 面 则 建立 和 显示 广告 条 。 


7.1.1 创建 Ad Rotator 计划 文件 


Ad Rotator 组 件 是 通过 读 取 Ad Rotator 计划 文件 来 完成 工作 的 。Ad Rotatar 计划 文件 
包括 与 要 显示 的 图 像 文 件 的 地 点 有 关 的 信息 以 及 每 个 图 像 的 不 同属 性 。 下 面 是 一 个 标准 的 
AD Rotator 计划 文件 : 


Redirect http://dusiming 广告 被 单 击 后 所 指向 的 文件 

width 400 "以 像素 为 单位 指定 广告 的 宽度 

height 50 "以 像素 为 单位 指定 广告 的 高 度 

border 0 ' 以 像素 为 单位 指定 广告 四 周 的 边框 宽度 
' 分 隔 符号 

baidu.gif ' 该 广告 的 图 像 文件 名 及 位 置 
http://www.baidu.com 单 击 该 广告 后 要 转 到 的 URL 值 

百度 站 点 "图 像 的 替代 文字 

5 广告 的 显示 频率 ， 频 率 越 高 显示 的 次 数 也 越 多 
google.gif 

http://www.google.com 

谷歌 站 点 

15 

youdao.gif 

http://www.youdao.com 

有 道 站 点 


10 


AD Rotator 计划 文件 由 两 部 分 组 成 (这 两 部 分 由 全 是 星 号 “*” 的 一 行 隔 开 ): 
。 第 一 部 分 设置 应 用 于 轮换 安排 中 所 有 广告 图 像 的 参数 。 
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e 第 二 部 分 指定 每 个 单独 广告 的 文件 和 位 置信 息 以 及 应 当 接 收 的 每 个 广告 的 显示 时 
间 所 占 百分比 。 

在 第 一 部 分 中 有 4 个 全 局 参数 ， 每 个 参数 都 由 一 个 关键 字 和 值 组 成 。Redirect 行 指出 
该 广告 链接 到 的 URL 地 址 ， 星 号 上 面 的 其 余 3 行 简单 说 明 如 何 显示 广告 。Width 和 Height 
行 以 像素 为 单位 指定 网 页 上 广告 的 宽度 和 高 度 ， 默 认 值 是 440 和 60 像素 。Border 行 以 像 
素 为 单位 指定 广告 四 周 超 链接 的 边框 宽度 ， 默 认 值 为 1 像素 ， 如 果 将 该 参数 设置 为 0， 该 
广告 则 将 没有 边框 。 这 4 个 参数 都 是 可 选 的 ， 如 果 用 户 未 指定 它们 的 值 ， 则 Ad Rotator 组 
件 将 使 用 默认 的 值 。 

星 号 下 面 的 第 二 部 分 以 每 4 行为 一 个 单位 描述 每 个 广告 的 具体 内 容 。 每 个 广告 的 描述 
包含 图 像 文件 的 URL、 广 告 的 主页 URL( 连 字符 “-” 可 指出 该 广告 没有 链接 ) 和 图 像 的 替代 
文字 以 及 指定 该 页 与 其 他 页 交替 显示 频率 的 数值 。 要 确定 广告 显示 的 频率 ， 可 以 将 计划 文 
件 中 所 有 广告 的 权 值 相 加 ， 在 该 例 中 总 数 是 30， 那 么 hsbe 的 广告 权 值 为 5， 这 意味 着 Ad 
Rotator 组 件 每 调用 6 次 ， 它 则 显示 一 次 。 


7.1.2 设置 广告 图 像 重 定向 文件 


广告 条 放置 到 网 站 后 ， 用 户 对 广告 条 进行 单 击 操作 后 ，ASP 就 会 打开 重 定 向 文件 。 重 
定向 文件 通常 是 用 户 创建 的 文件 ， 它 包含 用 来 解析 由 Ad Rotator 对 象 发 送 的 查询 字符 串 的 
脚本 ， 并 将 用 户 重 定向 到 与 用 户 所 单 击 的 广告 所 相关 的 URL。 用户 也 可 以 将 脚本 包含 进 重 
定向 文件 中 ， 以 便 统 计 单 击 某 一 特定 广告 的 用 户 数目 并 将 这 一 信息 保存 到 服务 器 上 的 某 一 
文件 中 ， 如 下 例 所 示 : 

<% 
' 将 本 将 单 击 情况 记录 到 Web 服务 器 日 志文 件 中 
Response.AppendToLog Request.QueryString("url") 
' 重 定向 到 广告 指定 的 站 点 
Response.Redirect (Request.Querystring("url")) 

%> 


注意 : 

Redirect 行 所 指示 的 不 是 为 广告 本 身 指定 的 URL， 而 是 将 调用 的 中 间 页 面 的 URL。 这 
样 ， 就 可 以 通过 这 个 中 间 页 面 跟踪 单 击 广 告 的 次 数 。 该 Redirect URL 将 与 包含 两 个 参数 的 
查询 字符 串 一 起 调用 特定 广告 主页 的 URL 和 图 像 文件 的 URL。 


7.1.3 创建 网 站 广告 显示 页 面 


ASP 如 要 在 页 面 中 调用 Ad Rotator 组 件 , 首先 必须 使 用 Server.CreateObject0 方 法 实例 化 
AdRotator 对 象 。Ad Rotator 组 件 的 PROGID 属性 是 MSWC.AdRotator， 完 整 的 代码 如 下 : 
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<% Set ad=Server.CreateObject("MSWC.AdRotator") %> 
<%= ad.GetAdvertisement("/ads/adrot.txt") %> 


Ad Rotator 组 件 支持 的 唯一 方法 是 GetAdvertisement0， 它 只 有 一 个 参数 为 AdRotator 
计划 文件 的 名 称 。 注 意 指 向 文件 的 路 径 是 从 当前 虚拟 目录 的 相对 路 径 ， 物 理 路 径 是 不 允许 
的 。GetAdvertisement0 方 法 从 Rotator 计划 文件 中 获取 下 一 个 计划 广告 的 详细 说 明 并 将 其 
格式 化 为 HTML 格式 。 下 面 的 HTML 由 GetAdvertisement(0 方 法 生成 且 被 添加 到 网 页 的 输 
出 中 ， 以 便 显 示 Rotator 计划 文件 中 的 下 一 个 广告 。 

<A HREF="http://site?url=http://www.ut.com.cn&image=bookhome0722.gif' > 
<IMG SRC="bookhome0722.gif' ALT=" 图 书 之 家 " WIDTH=400 HEIGHT=50 BORDER=0></A> 

使 用 Ad Rotator 组 件 还 可 以 直接 通过 对 象 属性 ， 而 不 是 计划 文件 中 的 设置 来 直接 控制 
某 些 广告 特性 ， 其 可 用 属性 如 下 。 

e Border 属性 : 指定 广告 边框 的 大 小 。 

e Clickable 属性 : 指定 广告 是 否 有 与 之 相关 联 的 超级 链接 。 默 认 值 为 True， 表 示 有 

相关 联 的 超级 链接 。 

e TargetFrame 属性 : 指定 要 打开 与 广告 相关 联 的 超级 链接 的 框架 名 称 。 

【 例 7-1】 创 建 一 个 显示 广告 条 的 轮转 页 面 。 

(1) 将 如 图 7-1 所 示 的 3 幅 gf 图 片 文件 复制 至 服务 器 主 目录 中 。 

图 百度 疤 新 浪 信和 信人 网 


Bai 合 天 ose 


sina.com.cn 


《YN 人 人 网 


renren.com 


Baidu.gif xinlang.gif renren.gif 
图 7-1 图 片 效 果 


(2) 创建 一 个 名 称 为 adrot.txt 文 件 ， 其 代码 如 下 所 示 : 
Redirect adrot.asp 
width 200 
height 160 
border 0 
* 
baidu.gif 
http://www.baidu.com 
百度 搜索 
5 
Xinlang.gif 
http://www.sina.com 
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新 浪 网 站 
15 
renren.gif 
http://www.renren.com 
人 人 网 站 
10 
(3) 将 adrot.txt 文件 保存 至 服务 器 主 目录 中 。 
(4) 创建 一 个 名 称 为 adrot.asp 的 文件 ， 其 代码 如 下 所 示 : 
<HIMI> 
<body> 
<%set myad=Server.CreateObject("MSWC.adrotator") 
myad.Border = 0 
myad.Clickable = true 
myad. TargetFrame = AdFrame 
%> 


<% 
=myad.getadvertisement("/adrot.txt") 
%> 
<HR SIZE="1" COLOR="#000000"> 
<Center><A HREF="adrot.asp"> 重 新 刷新 本 页 </A></center> 
</BODY> 
</HIML> 


(5) 将 adrot.asp 文件 保存 至 服务 器 主 目 录 中 。 
(6) 运行 adrot.asp 页 面 后 ， 结 果 如 图 7-2 所 示 。 


NO WA WE SAW IAD | Wm 


| i 
(a) 单 击 广告 图 片 (b) 刷新 广告 图 片 
图 7-2 网 页 效果 
(7) 重新 创建 adrot.asp 文件 ， 其 代码 如 下 所 示 : 
<% 


' 将 本 将 单 击 情况 记录 到 Web 服务 器 日 志文 件 中 
Response.AppendToLog Request.QueryString("url") 
' 重 定向 到 广告 指定 的 站 点 
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Response.Redirect (Request.Querystring("url")) 
%> 
(8) 将 上 面 创建 的 adrot.asp 文件 保存 至 服务 器 主 目录 中 。 这 时 ， 如果 用 户 运行 该 文件 ， 
并 再 次 单 击 图 7-2 所 示 网 页 中 的 网 站 广告 图 片 ， 浏 览 器 将 会 自动 跳 转 到 相关 的 网 站 ， 如 图 
7-3 所 示 。 
SSE 本本 一 
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(a) 单 击 广告 图 片 (b) 跳 转 链接 页 面 


图 7-3 广告 跳 转 效 果 
(9) 建立 一 个 广告 信息 显示 文件 ， 其 代码 如 下 : 


<% 
dimad 

set ad=server.createobject("MSWC.AdRotator") 
ad.Border=0 "设置 广告 图 片 的 边 宽 为 0 
ad.Clickable=true "设置 广告 图 片 的 超 链接 
ad.TargetFrame="trget=" new" ' 设 置 在 新 窗口 打开 超 链接 
response.write Ad.GetAdvertisement("adrot.txt") 

%> 


(10) 将 以 上 代码 以 line.asp 文件 保存 ， 运 行 后 的 结果 如 图 7-4 所 示 。 


DT 可 5 交 
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PR 
(b) 在 新 窗口 中 打开 链接 页 面 
图 7-4 广告 跳 转 效 果 


(a) 单 击 广告 图 片 


注意 : 
由 于 Windows 7 操作 系统 没有 自 带 Ad Rotator 组 件 , 因此 如 果 用 户 使 用 该 系统 作为 ASP 
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动态 网 站 服务 器 , 就 需要 下 载 adrot.dll 文件 , 并 将 其 复制 到 C:/windows/system32 文件 夹 中 ， 
再 以 管理 员 身 份 运行 CMD 程序 ， 执 行 Regsvr32 adrot.dll 命令 。 


7.2 ”使 用 Browser Capabilities 组 件 检测 浏览 器 


Browser Capabilities 组 件 用 于 检测 客户 端 浏览 器 的 能 力 。 通 过 该 组 件 ， 可 以 知道 浏览 
器 的 名 称 、 版 本 ， 以 及 是 否 支持 框架 、ActiveX 控件 、Cookie 和 脚本 程序 等 。 

Browser Capabilities 组 件 的 工作 原理 如 下 : 当 客 户 端 浏览 器 向 服务 器 发 送 页 面 请 求 时 
会 自动 发 送 一 个 User Agent HTTP 标题 ， 而 该 标题 是 一 个 声明 浏览 器 及 其 版 本 的 ASCII 字 
符 串 。 而 Browser Capabilities 组 件 就 将 User Agent 映射 到 在 文件 Browscap.ini 中 所 注 明 的 
浏览 器 ， 并 通过 BrowserType 对 象 的 属性 来 识别 客户 浏览 器 。 

若 该 对 象 在 browscap.ini 文件 中 找 不 到 与 该 标题 匹配 的 项 ， 那 么 将 使 用 默认 的 浏览 器 
属性 。 若 该 对 象 既 未 找到 匹配 项 上 且 browscap.ini 文件 中 也 未 指定 默认 的 浏览 器 设置 ， 则 它 
将 每 个 属性 都 设 为 字符 串 UNKNOWN。 

在 默认 情况 下 ，browscap.ini 文件 被 存放 在 C:\WINDOWS\system32\inetsrv 目录 中 ， 用 
户 可 以 编辑 这 个 文本 文件 ， 以 添加 属性 或 者 根据 最 新 发 布 的 浏览 器 版 本 的 更 新 文件 来 修改 
该 文件 。 

BrowserType 对 象 包含 的 属性 ， 如 表 7-2 所 示 。 

表 7-2 BrowserType 对 象 的 属性 


属 性 说 了 明 
Browser 指定 该 浏览 器 的 名 称 
Version 指定 该 浏览 器 的 版 本 号 
Majorver 指定 主 版 本 号 
Minorver 指定 副 版 本 号 
Frames 指定 该 浏览 器 是 否 支 持 框架 
Tables 指定 该 浏览 器 是 否 支持 表格 
Cookies 指定 该 浏览 器 是 否 支持 Cookie 
Backgroundsounds 指定 该 浏览 器 是 否 支持 背景 音乐 
VBScript 指定 该 浏览 器 是 否 支持 VBScript 
JavaScript 指定 该 浏览 器 是 否 支持 Jscript 
JavaApplets 指定 该 浏览 器 是 否 支 持 Java 小 程序 
ActiveXControls 指定 该 浏览 器 是 否 支持 ActiveX 控件 
Beta 指定 该 浏览 器 是 否 测试 版 


Cdf 指定 该 浏览 器 是 否 支持 频道 定义 文件 
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【 例 7-2】 使 用 Browser Capabilities 组 件 检测 浏览 器 的 常用 属性 。 
(1) 创建 一 个 名 称 为 Browser.asp 的 文件 ， 其 代码 如 下 所 示 : 


<Center><H1> 您 的 浏览 器 性 能 如 下 : </H1></Center> 
<Hr> 

<%set bc=seIVer.CTeateObject("mswc.browsertype")96> 
<%if bc.frames=true then%> 浏 览 器 支持 多 窗口 (frames) 显 示 
<%else%> 浏 览 器 不 支持 多 窗口 (frames) 显 示 

<%end ip><br> 

<%if bc.backgroundsounds=true then%> 浏 览 器 可 以 播放 背景 音乐 (backgroundsounds) 
<%else%> 浏 览 器 不 能 播放 背景 音乐 (backgroundsounds) 
<%end ippo><br> 

<%if bc.tables=true then%> 浏 览 器 支持 表格 (tables) 显 示 
<%else%> 浏 览 器 不 支持 表格 (tables) 显 示 

<%end if6><br> 

<%if bc.beta=true then%> 您 的 浏览 器 是 一 测试 版 (beta) 
<%else%> 你 的 浏览 器 是 一 正式 版 

<%end io><br> 

<%if bc.activexcotrols=true then %> 浏 览 器 支持 active 控制 
<%else%> 浏 览 器 不 支持 active 控制 

<%end i®6><br> 

<%if bc.cookies=tmue then%> 浏 览 器 支持 cookie 功能 
<%else%> 浏 览 器 不 支持 cookie 功能 

<%end i®6><br> 

<%if bc.vbscript=trmue then%> 浏 览 器 支持 vbscript 
<%else%> 浏 览 器 不 支持 vbscript 

<%end i®6><br> 

<%if bc.jscript=true then%> 浏 览 器 支持 jscript 
<%else%> 浏 览 器 不 支持 jscript 

<%end i®6> 


(2) 将 Browser.asp 文件 保存 至 服务 器 主 目录 中 ， 运 行 后 的 结果 如 图 7-5 所 示 。 
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7-5 “检测 浏览 器 属性 
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7.3 ”使 用 Content Rotator 组 件 制 作 内 容 轮 转 效果 


Content Rotator 组 件 通过 读 取 计 划 文 件 来 完成 网 页 内 容 的 显示 ， 通 常 是 自动 轮换 显示 
- 些 HTML 内 容 。 每 当 用 户 请 求 Web 页 时 ，Content Rotator 组 件 从 内 容 计 划 文 件 中 取得 待 
显示 的 内 容 。 待 显示 内 容 可 以 是 HTML 能 够 表达 的 任何 内 容 , 包括 文本 、 图 像 和 超 链接 等 。 
内 容 计划 文件 是 一 个 文本 文件 ， 它 提供 要 使 用 的 各 个 文本 字符 串 的 列表 ， 由 每 个 要 显 
示 的 列表 部 分 以 两 个 百 分 号 开始 ， 格 式 如 下 : 
%% [# 权重 ] [// 注 释 ] 
待 轮换 显示 的 内 容 


权重 设置 了 每 个 条 目 出 现在 返回 页 面 中 的 频率 列表 的 显示 频率 , 取 值 范围 为 0~65 535， 
默认 值 为 1。 
Content Rotator 组 件 有 ChooseContent() 和 GetAllContent0 两 个 方法 。ChooseContent0 方 
法 用 于 从 内 容 计 划 文 件 中 得 到 一 项 显示 内 容 ， 而 GetAllContent0 方 法 用 于 显示 内 容 计划 文 
件 中 的 所 有 内 容 。 
【 例 7-3】 创 建 一 个 从 可 选 列表 中 随机 显示 内 容 的 页 面 。 
(1) 将 如 图 7-6 所 示 的 图 片 文件 tl.gif、t2.gif、t3.gif 和 t4.gif 复制 至 服务 器 主 目录 中 。 
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tl.gif t2.gif t3.gif t4.gif 
7-6 ASP 网 页 效果 


(2) 在 服务 器 主 目录 中 创建 一 个 名 称 为 Rotator.txt 文件 ， 在 该 文件 中 输入 以 下 代码 : 


%% #1 

/Microsoft 公司 

<A Href="tl.asp"><Img Src="tl.gif' Border=0></A> 

<p> 微 软 (Microsoft, NASDAQ: MSFT，HKEx: 4338) 公 司 是 世界 PC(Personal Computer, 个 人 计 
算 机 ) 机 软件 开发 的 先导 ， 由 比尔 。 盖 茨 与 保罗 。 艾 伦 创始 于 1975 年 ， 总 部 设 在 华盛顿 州 
的 雷 德 蒙 市 (Redmond， 邻近 西 雅 图 )。 目 前 是 全 球 最 大 的 电脑 软件 提供 商 。 微 软 公司 现 有 雇 
员 6.4 万 人 ,2005 年 营业 额 368 亿美 元 。 其 主要 产品 为 Windows 操作 系统 、Internet Explorer 
网 页 浏览 器 及 Microsoft Office 办 公 软 件 套件 。</P> 

%% #2//Autodesk 公司 

%%l/ 再 加 一 行 注释 

%%// 第 三 行 注释 

<A Href="t.asp"><Imeg Src="t2.gif"' Border=0></A> 


se 
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<p> 欧 特 克 有 限 公 司 (“ 欧 特 克 ”或 “Autodesk”) 是 全 球 最 大 的 二 维 、 三 维 设计 和 工程 软件 公司 ， 
为 制造 业 、 工 程 建设 行业 、 基 础 设施 业 以 及 传媒 娱乐 业 提 供 卓越 的 数字 化 设计 和 工程 软件 
服务 和 解决 方案 。</P> 

%% #4//Adobe 公司 

<A Href="t3.asp"><Img Src="t3.gif' Border=0></A> 

<p>Adobe Systems 是 一 家 总 部 位 于 美国 加 州 圣何塞 的 电脑 软件 公司 。 公 司 由 乔 恩 。 沃 诺 克 和 查 
理 斯 。 格 什 克 创建 于 1982 年 12 月 ， 他 们 先前 都 曾 任职 于 施乐 公司 的 帕 洛 阿尔 托 研究 中 心 ， 
离开 后 组 建 了 Adobe 系统 公司 ， 使 得 PostScript 页 描述 语言 得 到 商业 化 应 用 。</P> 

%% #5//HP 公司 

<A Href="t4.asp"><Img Src="t4.gif"' Border=0></A> 

<p> 惠 普 研 发 有 限 合伙 公司 (Hewlett-Packard Development Company. L.P.)( 简 称 HP)(NYSE: HPQ) 
位 于 美国 加 州 的 帕 罗 奥 多 ， 是 一 间 全 球 性 的 资讯 科技 公司 ， 主 要 专注 于 打印 机 、 数 位 影像 、 
软件 、 计 算 机 与 资讯 服务 等 业务 。2002 年 收购 了 美国 著名 的 电脑 公司 康 柏 电脑 。</P> 


(3) 使 用 记事 本 工具 创建 Rotator.asp 文件 ， 其 代码 如 下 所 示 : 


<Html> 
<Head> 
<Title> 
随机 目录 条 
</Title> 
</Head> 
<Body> 
<% 

set NextTip=Server.CreateObject("MSWC.ContentRotator") 
%> 

<%=NextTip.ChooseContent("Rotator.txt")%> 

<br> 

-<A Href="Rotator.asp"> 刷 新 </A>- 
</Body> 

</Html> 


本 页 面 是 随机 显示 的 内 容 ， 刷 新 后 显示 结果 会 变化 -<br> 


(4) 运行 Rotator.asp 文件 后 的 结果 如 图 7-7 所 示 。 
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图 7-7 网 页 切换 效果 
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(5) 将 Rotator.asp 程序 代码 修改 为 如 下 所 示 : 


<Html> 

<Head> 

<Title> 

随机 目录 条 

</Title> 

</Head> 

<Body> 

-本 页 面 是 随机 显示 的 内 容 ， 刷 新 后 显示 结果 会 变化 -<br> 
<% 

set NextTip=Server.CreateObject("MSWC.ContentRotator") 

%> 

<%=NextTip.GetAllContent("Rotator.TXT")%> 

<br> 

-一 一 一 一 一 一 -一 一 -一 -<A Hre 全 "Rotator asp"> 刷 新 </A>- 一 一 -一 -一 一 -一 -一 一 -一 
</Body> 

</Html> 


(6) 运行 Rotator.asp 文件 后 ， 将 会 把 Rotator.txt 文件 中 所 有 内 容 解释 执行 ， 并 且 显 示 
在 浏览 器 上 的 结果 分 类 之 间 会 自动 添加 <hr> 水 平 线 ， 如 图 7-8 所 示 。 
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7-8 网 页 效果 


7.4 使 用 Content Linker 组 件 制作 页 面 索 引 


Content Linker 组 件 可 在 一 系列 相互 关联 的 页 面 中 建立 一 个 目录 表 , 在 它们 中 间 建 立 动 
态 连接 , 并 自动 生成 和 更 新 目录 表 及 先前 和 后 续 的 Web 页 的 导航 链接 。 该 组 件 常 用 于 需要 
建立 大 量 页 面 为 访问 者 提供 导航 时 ， 例 如 联机 报刊 、 电 子 读物 网 站 以 及 论坛 邮件 等 。 
7.4.1 Content Linker 组 件 简介 


在 网 站 浏览 一 个 在 线 内 容 较 多 的 页 面 组 时 ， 如 果 利 用 Content Linker 组 件 建立 页 面 索 
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引 ， 可 以 超 链接 到 组 内 的 任意 一 页 ， 每 一 页 可 以 向 前 或 向 后 翻 页 。 这 样 的 设计 不 仅 可 以 满 
足 巨 大 页 面 数量 的 页 面目 录 建 立 要 求 ， 还 可 以 在 页 面 需要 扩充 时 ， 一 定 程度 上 减少 了 对 网 
页 内 容 的 修改 。 

当 ASP 网 站 的 设计 者 需要 建立 大 量 的 页 面 为 访问 者 提供 导航 时 ， 使 用 Content Linker 
组 件 可 以 起 到 事半功倍 的 效果 。 在 使 用 该 组 件 之 前 ， 设 计 者 首先 需要 编写 一 个 目录 文件 ， 
即 网 页 的 顺序 文件 ， 它 是 一 个 文本 文件 ， 可 以 自由 命名 。 


注意 : 
目录 文件 是 包含 一 系列 HTML 文件 列表 的 文本 文件 .每 一 行 都 指明 一 个 专门 的 HIML 
文件 ， 该 Web 页 的 描述 ， 是 一 个 可 由 可 无 的 注释 。 一行 的 每 一 个 元 素 都 用 Tab 键 隔 开 。 


7.4.2 ”Content Linker 组 件 方法 


Content Linker 组 件 包括 了 如 表 7-3 所 示 的 方法 。 在 编写 一 个 ASP 文件 时 ， 它 根据 列 
表 文 件 的 信息 会 自动 生成 附带 超 链接 的 目录 页 。 如 果 设 计 者 需要 在 每 一 页 上 制作 一 个 如 “向 
前 翻 页 ”或 “向 后 翻 页 ”的 超 链 接 ， 就 再 编写 一 个 能 自动 生成 翻 页 超 链接 的 包含 文件 ， 可 
使 用 .ine 为 扩展 名 ， 例 如 Nlink.inc， 以 后 在 组 件 内 每 一 页 中 都 包含 该 文件 。 


表 7-3 Content Linker 组 件 的 方法 


组 件 方法 说 明 
GetListCount( 目 标 文件 名 ) 显示 组 件 中 包含 的 连接 的 文件 数目 
GetListIndex( 目 标 文件 名 ) 显示 当前 页 在 这 些 连接 文件 中 的 前 后 位 置 索引 值 
GetNextDescription( 目 标 文件 名 ) 显示 连接 文件 中 下 一 个 的 描述 
GetNextURL( 目 标 文件 名 ) 显示 连接 文件 中 的 下 一 个 文件 的 URL 地 址 
GetNthDescription( 目 标 文件 名 , N) 显示 连接 文件 中 第 NN 个 网 页 的 描述 
GetNthURL( 目 标 文件 名 , N) 显示 连接 文件 中 第 N 个 网 页 的 文件 URL 地 址 
GetPreviousDescription( 目 标 文件 名 ) 显示 连接 文件 中 前 一 个 文件 的 描述 
GetPreviousURL( 目 标 文件 名 ) 显示 连接 文件 中 前 一 个 文件 的 URL 地 址 


在 使 用 内 容 连接 组 件 时 ， 应 首先 建立 Content Linker 组 件 ， 具 体 方法 如 下 : 


Set mylinks=Server.CreateObject("MSWC.Url") 


7.4.3 ”使 用 Content Linker 组 件 创建 管理 对 象 


Content Linker 组 件 可 以 创建 管理 URL 列表 的 URL 对 象 , 要 使 用 Content Linker 组 件 ， 
必须 先 创建 Content Linking List 文件 。Content Linking 组 件 正 是 通过 读 取 该 文件 来 获取 处 
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理 设计 者 所 希望 链接 的 页 面 信息 。 该 文件 是 一 个 纯 文 本 文件 ， 例 如 : 
Xajh01.asp 第 一 章 灭门 
Xajh02.asp 第 二 章 聆 秘 
Xajh03.asp 第 三 章 救 难 


Xajh40.asp 第 四 十 章 曲 谐 
Xajh41.asp 后 记 


这 个 文本 文件 的 每 行 有 以 下 形式 : 


Url description comment 


其 中 ，URL 是 与 页 面相 关 的 超 链 接地 址 ，description 提供 了 能 被 超 链接 使 用 的 文本 信 
息 ，comment 则 包含 了 不 被 Content Linker 组 件 解释 的 注释 信息 (description 和 comment 均 


为 可 选 参数 )。 


<html> 
<head> 
<meta http-equiv="content-Type"content="text/html:charset=gb2312"> 
<title> 简 单 实例 </title> 
</head> 
<body> 
<p> 
<% 
set link=server.createobject("MSWC.url") 
count=link.getlistcount("url.txt") 
dimi 
for i=]1 to count 
%> 
<ul><li><a hre="<%=link.getnthURL("url.txt".i)%>"> 
<% 
=Link.GetnthDescription("url.txt",i) 
%></a> 
<% 
next 
%> 
</body> 
</html> 


在 以 上 代码 中 ， 先 用 GetListCount() 方 法 确定 在 url.txt 文件 中 有 多 少 条 项 目 , 然后 利用 
循环 语句 ， 并 使 用 GetNthURLO、GetNthDescription() 方 法 逐一 将 存储 在 urltxt 文件 中 的 内 


容 读 出 并 显示 给 客户 端 浏 览 器 。 


在 创建 网 站 总 导航 页 面 之 后 ， 若 用 户 还 需要 在 页 面 中 添加 “上 一 页 ”或 “下 


-页 ”的 
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导航 链接 ， 可 以 参考 下 面 的 代码 实现 : 

<% 
Set link=server.CreateObject("MSWC.Url") 
count=link.getlistcount("“url.txt") 
current=link.getlistindex("url.txt") 
if current>1 then 

%> 
<a hre 人 f="<%=link.getpreviousURL("url.txt")%>"> 
上 一 页 </a> 

<% 
endif 
if current<count then 

%> 
<a hre 人 ="<%=link.getmextURL("url.txt")%>"> 
下 一 页 </a> 

<% 
endif 

%> 


将 以 上 代码 放 入 每 个 页 面 中 即 可 。 


注意 : 

车 网 站 有 一 系列 相互 关联 的 页 面 ，Coutent Linker 组 件 非 常 适 合 此 类 需求 ,该 组 件 既 可 
以 使 这 些 页 面 中 建立 一 个 目录 表 ， 还 能 够 在 它们 中 间 建 立 动态 链接 ， 并 且 自 动 生成 和 更 新 
目录 表 及 先前 和 后 续 的 Web 页 的 导航 链接 。 


【 例 7-4】 使 用 Content Linker 组 件 ， 从 列表 文件 中 创建 一 个 图 书目 录 表 。 
(1) 创建 一 个 名 称 为 listtxt 的 文件 ， 其 代码 如 下 所 示 : 


Xajh01.asp 第 一 章 灭门 
Xajh02.asp 第 二 章 聆 秘 
Xajh03.asp 第 三 章 救 难 
Xajh04.asp 第 四 章 坐 斗 
Xajh38.asp 第 三 十 八 章 聚 歼 
Xajh39.asp 第 三 十 九 章 拒 盟 
Xajh40.asp 第 四 十 章 。” 曲 谐 
Xajh41.asp ”后 记 


(2) 将 listtxt 文件 保存 至 服务 器 主 目 录 中 。 
(3) 创建 一 个 名 称 为 list.asp 的 文件 ， 其 代码 如 下 所 示 : 


<Html> 
<Title> 金 庸 小 说 《 笑 傲 江 湖 》 图 书目 录 </Title> 
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<Center><H1> 笑 全 江湖 </H1></Center> 
<Hr<U> 
<% 
Set ML = Server.CreateObject("MSWC.Nextlink")%> 
<% 
intCount = ML.GetListCount("list.TXT") 
Fori= 1 To intCount 
%> 
<Li> &nbsp&nbsp 
<a href="<%=ML.GetNthURL("list.TXT". j) %>"> 
<%=ML.GetNthDescription("list.TXT", i) %> 
</a> 
<Br> 
<%Next%> 
<U> 


(4) 将 以 上 代码 保存 至 服务 器 主 目录 中 ， 再 将 相应 的 页 面 内 容 文件 (Xajh01.asp 一 
Xajh41.asp) 复 制 到 List.asp 文件 所 在 目录 后 ， 运 行 List.asp 文件 后 的 结果 如 图 7-9 所 示 。 
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图 7-9 页 面 索引 效果 


7.5 使 用 Page Counter 组 件 设计 网 站 计数 器 


Page Counter 组 件 用 于 创建 Page Counter 对 象 ， 该 对 象 用 于 记录 和 显示 Web 页 被 打开 
的 次 数 。 每 隔 一 定 的 时 间 ， 此 对 象 将 当前 的 页 面 访问 次 数 写 入 一 个 文本 文件 ， 这 样 就 可 以 
保证 数据 不 会 在 服务 器 关机 时 丢失 。Page Counter 组 件 使 用 一 个 内 部 Central Management 
对 象 来 记录 应 用 程序 中 的 每 一 页 被 打开 的 次 数 。 

了 Page Counter 对 象 有 3 个 方法 ， 即 Hits、PageHit 和 Reset。 其 中 ，Hits0 方 法 显示 指定 
的 网 页 被 打开 的 次 数 ，PageHit0 方 法 使 当前 页 面 的 访问 次 数 增加 一 次 ; Reset0 方 法 将 指定 
的 页 的 访问 次 数 重 置 为 0。 

【 例 7-5】 使 用 Page Counter 对 象 跟踪 访问 者 的 个 数 并 发 送 访问 消息 给 第 每 个 网 站 的 
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访问 者 ， 并 发 送 特定 消息 给 第 1000 个 网 站 访问 者 。 
(1) 创建 一 个 名 称 为 Counter.asp 的 文件 ， 其 代码 如 下 所 示 : 


<% 
Set MyPageCounter = Server.CreateObject("MSWC.PageCounter") 
HitMe = MyPageCounter.Hits 
If HitMe = 1000 Then 
%> 
祝贺 您 ， 您 是 第 一 千 个 访问 者 ! <BR> 
<% Else %> 
欢迎 您 ， 你 是 第 #<%= HitMe %> 个 访问 者 <BR> 
<% 
EndIf 
%> 
<% 
MyPageCounter.PageHit 
%> 


(2) 将 Counter.asp 文件 保存 后 ， 运 行 的 结果 如 图 7-10 所 示 。 
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图 7-10 网 站 计数 器 效果 


7.6 使 用 Counters 组 件 创 建 投票 计数 器 


Counters 组 件 用 于 创建 Counters 对 象 ， 该 对 象 可 创建 一 个 或 多 个 计数 器 ， 这 些 计数 器 
用 于 跟踪 某 一 网 页 或 某 一 网 站 访问 次 数 的 信息 。 一 个 计数 器 是 包含 一 个 整数 的 持久 值 ， 
旦 创建 了 计数 器 ， 它 将 一 直 持续 下 去 直到 被 删除 为 止 。 
Counters 对 象 有 4 个 方法 ， 如 表 7-4 所 示 。 
表 7-4 Counters 对 象 的 方法 
方 ” 法 说 明 
GetO | 用 于 返回 计数 器 的 当前 值 ， 如 果 计 数 器 不 存在 ， 则 创建 一 个 计数 器 并 将 值 设 为 0 


IncrementO_| 使 计数 器 的 值 递增 1， 如 果 计 数 器 不 存在 ， 则 创建 一 个 计数 器 并 将 值 设 为 1 
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( 续 表 ) 


Set0 将 计数 器 的 值 设 为 指定 的 值 ， 如 果 计 数 器 不 存在 ， 则 创建 一 个 计数 器 并 将 值 设 为 指定 值 
RemoveO 从 Counter 对 象 中 删除 一 个 计数 器 
-个 站 点 只 能 创建 一 个 计数 器 组 件 ， 但 该 组 件 可 以 有 多 于 一 个 的 计数 器 。Counters 对 
象 通常 是 在 Global.asa 文件 中 用 以 下 命令 创建 : 


<OBJECT RUNAT=Server SCOPE=Application ID=Counter PROGID="MSWC.Counters"> 
</OBJECT> 


注意 : 
计数 器 不 受 作用 域 限制 。 一 旦 创建 了 一 个 计数 器 ,那么 站 点 上 的 任何 页 都 可 以 检索 和 
控制 它 的 值 。 


【 例 7-6】 使 用 Counters 组 件 创建 一 个 投票 计数 器 。 
(1) 创建 一 个 名 称 为 remove.asp 的 ASP 文件 ， 其 代码 如 下 所 示 : 


<% 
Set Counters=Server.Createobject("MSWC.Counters") 
vote = Request.QueryString("site") 
clear = Request.QueryString("clear") 
Counters.Increment(vote) 
If Not clear="" Then 
Counters.Remove(" 动 作 片 ") 
Counters.Remove(" 爱 情 片 ") 
Counters.Remove(" 伦 理 片 ") 
EndIf 
%> 
您 最 喜欢 哪 种 类 型 的 电影 ， 请 投票 : 
<Hr> 
<FORM NAME="filmtype" METHOD="GET" ACTION="remove.asp"> 
<Input type="RADIO" NAME="site" VALUE=" 动 作 片 "> 动作 片 
<Input type="RADIO" NAME="site" VALUE=" 爱 情 片 "> 爱情 片 
<Input type="RADIO" NAME="site" VALUE=" 伦 理 片 "> 伦理 片 
<Br><Br><INPUT TYPE="SUBMIT" VALUE=" 我 要 进行 投票 "> 
</FORM> 
<Hr> 
当前 的 投票 结果 :<BR> 
动作 片 : <% =Counters.Get(" 动 作 片 ") %><BR> 
爱情 片 : <% =Counters.Get(" 爱 情 片 ") %><BR> 
伦理 片 : <% =Counters.Get(" 伦 理 片 ") %> 
<FORM NAME="Clear Counters" METHOD="GET" ACTION="remove.asp"> 
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<INPUT TYPE="SUBMIT" VALUE=" 重 新 计 票 "NAME="clear"> 
</FORM> 


(2) 将 remove.asp 文件 保存 后 ， 其 运行 结果 如 图 7-11 所 示 。 
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图 7-11 网 站 计数 器 效果 


7.7 使 用 PermissionChecker 组 件 检查 用 户 权 限 


PermissionChecker 组 件 创建 一 个 PermissionChecker 对 象 ， 该 对 象 使 用 IIS 提供 的 密码 
验证 协议 来 确认 用 户 是 否 有 权限 来 读 取 某 个 文件 。PermissionChecker 对 象 只 有 一 个 
HasAccess 方法 ， 该 方法 决定 用 户 是 否 有 权 访 问 一 个 指定 的 文件 ， 如 下 例 所 示 : 

<% Set pmck = Server.CreateObject("MSWC.PermissionChecker") %> 
Physical Path Access = <%= pmck.HasAccess("c:\pages\abc\default.htm") %> 


' 该 路 径 是 一 个 网 页 、 文 件 或 资源 的 物理 的 或 虚拟 的 路 径 
Virtual Path Access=<%= pmck.HasAccess("/abc/default.htm") %> 


注意 : 

可 以 使 用 PermissionChecker 对 象 来 定制 网 页 , 这 些 网 页 中 仅 包含 当前 用 户 允 许 访问 的 
资源 的 链接 。 这 项 技术 可 用 来 隐藏 限制 访问 的 网 页 和 资源 ， 它 可 以 使 被 限制 的 访问 者 不 知 
道 这 些 资源 的 存在 。 


IS 支持 匿名 、 基 本 和 集成 Windows 三 类 密码 验证 方法 。 当 启用 匿名 验证 时 ， 用 户 不 
需要 输入 用 户 名 或 密码 就 可 以 访问 站 点 的 公共 区 域 。 所 有 用 户 初始 时 都 在 IS 的 匿名 用 户 
账号 下 登录 ， 因 为 匿名 用 户 都 享有 相同 的 账号 ， 所 以 当 允 许 匿名 访 时 ，PermissionChecker 
组 件 将 无 法 确定 单个 用 户 的 身份 。 

基本 验证 提示 用 户 输 入 用 户 名 和 密码 ， 但 密码 用 明文 发 送 ， 优 点 在 于 它 是 HTTP 规范 
的 一 部 分 并 被 大 多 数 浏览 器 支持 ， 缺 点 是 浏览 器 使 用 基本 验证 是 以 末 加 密 的 形式 传输 密码 
的 , 这 样 通过 监视 网 络 通讯 , 其 他 人 就 可 以 非常 容易 地 用 某 些 通用 工具 来 截取 和 破解 密码 。 

集成 Windows 验证 是 一 种 安全 的 验证 ,因为 用 户 名 和 密码 不 通过 网 络 发 送 , 用 户 的 浏 
览 器 通过 与 服务 器 进行 密码 交换 来 证 明 其 知晓 密码 。 
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使 特定 的 ASP 页 拒绝 匿名 访问 有 两 种 方法 : 一 种 是 在 Windows 资源 管理 器 中 右 击 相 
应 的 ASP 文件 ， 然 后 在 快捷 菜单 中 选择 “属性 ”命令 ， 再 在 “安全 ”选项 卡 中 设置 该 文件 
允许 哪些 用 户 访问 ; 另 一 种 是 在 ASP 脚本 中 检查 环境 变量 LOGON_USER 是 否 为 空 ， 如 果 
为 空 ， 则 表示 当前 用 户 是 匿名 用 户 。 


7.8 使 用 MyIfo 组 件 存储 网 站 所 有 者 信息 


MyInfo 组 件 可 创建 一 个 MyInfo 对 象 ， 该 对 象 跟踪 Web 站 点 所 有 者 的 个 人 信息 ， 如 经 
营 Web 站 点 的 组 织 名 称 、 地 址 及 Web 站 点 的 设置 ， 还 有 Web 站 点 是 否 有 guest book。 

每 个 站 点 只 能 创建 一 个 MyInfo 对 象 ， 只 需要 创建 一 个 简单 的 MyInfo 组 件 的 实例 就 可 
以 使 用 Web 网 站 上 的 所 有 页 面 均 能 获得 其 信息 。 通 常 是 在 Globalasa 文件 中 用 以 下 命令 来 
创建 MyInfo 对 象 : 


<OBJECT RUNAT=Server SCOPE=Session ID=MyInfo PROGID="MSWC.MyInfo"> 
<OBJECT> 


创建 MyInfo 对 象 后 ， 它 的 属性 值 保存 在 文本 文件 myinfo.xml 中 。myInfo.xml 默认 的 
保存 位 置 是 CYWINDOWS\system32\inetsrv 目录 。 
MylInfo 组 件 默认 时 没有 属性 和 方法 ， 用 户 可 根据 需要 自行 添加 。 如 下 例 所 示 : 
<% 
objMyInfo.MyManager = "zhangshihua" 
objMyInfo.MyPhoneExtension = "03766123456" 
%> 


属性 添加 完成 后 ， 可 用 别 的 页 面 对 其 进行 调用 和 取 值 。 这 种 不 需要 Session 对 象 在 两 
个 页 面 请 求 之 间 存 储 值 的 方法 ， 为 将 来 可 能 改变 的 数值 提供 了 一 个 存储 区 域 。 采 用 这 些 值 
的 页 面 将 会 在 下 次 运行 时 自动 地 采集 这 些 变 化 的 值 ， 从 而 避免 必须 编辑 大 量 的 其 他 页 面 。 
如 下 例 所 示 : 
<% 
strManagerName = objMyInfo.MyManager 
strPhoneExtension = objMyInfo.MyPhoneExtension 
%> 


7.9 ”使 用 Tools 组 件 创建 Tools 对 象 


Tools 组 件 创建 一 个 Tools 对 象 , 该 对 象 提供 的 实用 程序 可 使 用 户 很 容易 地 将 高 级 功能 
加 入 到 Web 页 中 。Tools 组 件 提供 了 生成 随机 数 、 检 查 文 件 是 否 存 在 或 处 理 HTML 表格 的 
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方法 ， 如 表 7-5 所 示 。 


表 7-5 Tools 对 象 的 方法 


方 ” 法 说 明 
FileExists 检查 文件 是 否 存在 
Owner 检查 当前 用 户 是 否 是 站 点 所 有 者 
PluginExists 检查 服务 器 插件 是 否 存在 (只 适用 于 _ Macintosh 计算 机 ) 
ProcessForm 处 理 HTML 表单 
Random 生成 一 个 随机 整数 
注意 : 


Random( 方 法 产生 一 个 位 于 - 32 768~32 767 的 随机 整数 , 为 了 获得 一 个 指定 范围 的 整 
数 ， 可 以 使 用 脚本 语言 中 的 ABS 函数 并 对 下 一 个 最 大 的 整数 取 模 。 


【 例 7-7】 使 用 Tools 组 件 生成 随机 整数 ， 如 图 7-12 所 示 。 
(1) 创建 一 个 名 称 为 Tools.asp 的 文件 ， 其 代码 如 下 所 示 : 


<HIML> 

<H2> 用 Tools 组 件 生成 随机 整数 </H2><br> 

<Hr> 

<% 
Set Tools=Server.CreateObject("MSWC.Tools") 

%> 

<% 
RandInt=Tools.Random 
Response.Write "下 面 是 一 个 随机 生成 的 整数 : "&RandInt&"<Br>" 
RandInt=Abs(Tools.Random ) 
Response.Write "下 面 是 一 个 随机 生成 的 正 整 数 : "&RandInt&"<Br>" 
RandInt=Abs(Tools.Random )Mod 200 
Response.write "下 面 是 一 个 随机 生成 的 在 0~200 之 间 的 正 整数 : " &RandInt&"<Br>" 
RandInt=(Abs(Tools.Random)Mod 51)+50 
Response.write "下 面 是 一 个 随机 生成 的 在 50~100 之 间 的 正 整数 : " &RandInt&"<Br>" 

%> 


(2) 将 Tools.asp 文件 保存 后 ， 其 运行 结果 如 图 7-12 所 示 。 
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图 7-12 随机 生成 整数 


7.10 使 用 IIs Log 组 件 抽取 IIs 日 志 信息 


IIS Log 组 件 创建 了 一 个 HS Log 对 象 ， 该 对 象 使 应 用 程序 能 从 IS 日 志文 件 中 抽取 特 
定 类 型 的 信息 。 当 用 户 是 服务 器 上 的 系统 管理 员 和 操作 员 时 ，IS Log 组 件 特别 有 用 。 可 以 
使 用 下 面 的 脚本 来 创建 ITSLog 对 象 : 


Set objLog=Server.CreateObject(MSWC.IISLog) 
IIS Log 对 象 提供 的 方法 ， 如 表 7-6 所 示 。 


表 7-6_1ISLog 对 象 的 方法 


方 法 说 了 明 
AtEndOfLog 确定 所 有 记录 是 否 已 从 日 志文 件 中 读 出 
CloseLogFiles 关闭 所 有 打开 的 日 志文 件 
OpenLogFile 为 读 或 写 打开 一 个 日 志文 件 
ReadFilter 从 日 志文 件 中 读 取 指定 日 期 和 时 间 范 围 的 记录 
ReadLogRecord 从 当前 日 志文 件 中 读 取 下 一 可 用 的 Log 记录 
WriteLogRecord 写 一 个 Log 记录 到 当前 日 志文 件 中 


7.11 利用 Dictionary 对 象 保 存 字典 对 象 


Dictionary 对 象 是 保存 键 和 项 目 相对 的 字典 对 象 ， 字 典 中 的 项 目 (可 以 是 任何 形式 的 数 
据 ) 被 保存 在 数组 中 ,每 项 都 与 唯一 的 键 相 关联 。 键 值 用 于 检索 单个 项 目 ， 通 常 是 整数 或 字 
符 串 ， 但 不 能 为 数组 。 

Dictionary 对 象 包含 的 属性 和 方法 ， 如 表 7-7 所 示 。 
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表 7-7 Dictionary 对 象 的 属性 和 方法 


属性 或 方法 说 明 
ArrayMode 属性 数组 访问 模式 ， 允 许 以 下 标 方式 访问 ， 默 认为 true 
Count 属性 返回 一 个 对 象 中 的 项 目 数 ， 只 读 属 性 
Item 属性 在 一 个 Dictionary 对 象 中 设置 或 者 返回 所 指定 key 的 item 
Items 属性 以 数组 方式 返回 对 象 中 的 全 部 项 目 
Key 属性 根据 下 标 取 得 关键 字 的 键 值 ， 只 读 属性 
Keys 属性 以 数组 方式 返回 对 象 中 的 全 部 键 值 
Add0 方 法 向 对 象 中 添加 一 个 关键 字 项 目 对 
Exists0 方 法 如 果 对 象 中 存在 所 指定 的 关键 字 则 返回 ttwe， 否 则 返回 false 
Join0 方 法 返回 一 个 字符 串 , 此 字符 串 由 包含 在 对 象 中 的 所 有 数据 键 和 项 目 对 连接 创建 
Load0 方 法 从 指定 的 数据 源 装 载 对 象 内 容 
Remove0 方 法 从 一 个 Dictionary 对 象 中 删除 一 个 关键 字 项 目 对 
RemoveAll0 方 法 从 一 个 对 象 中 删除 所 有 的 项 目 
Save0 方 法 转 储 对 象 中 的 内 容 到 指定 的 目标 
Sort0 方 法 排序 对 象 中 的 数据 ， 可 以 指定 升序 和 降序 
Split0 方 法 分 析 给 定 的 字符 串 ， 将 分 解 出 的 子 字符 串 填充 到 对 象 中 


当 以 数字 作为 下 标 来 查询 Dictionary 对 象 时 ， 数 字 表 示 按 照 插 入 顺序 的 下 标 ， 顺 序 从 
0 开始 。 如 果 其 中 某 个 数据 键 被 删除 ， 则 其 后 插入 的 数据 键 的 下 标 依 次 前 移 。Dictionary 对 
象 的 键 值 如 果 为 字符 串 时 将 忽略 字符 串 的 大 小 写 。 
Dictionary 对 象 的 默认 属性 为 Iem， 所 以 可 以 直接 对 Dictionary 对 象 进行 默认 操作 。 例 
如 dict("e") 与 dict.Item("e") 的 作用 是 完全 等 同 的 。 如 下 例 将 插入 一 些 关 键 字 项 目 对 , 然后 修 
改 项 目 c 为 第 二 个 插入 的 项 目 。 
Set dict = CreateObject("NetBox.Dictionary") 
dict.Add "a", "Athens" 
dict.Add "b", "Belgrade" 
dict.Add "ce", "Cairo" 
dict("c") = dict(1) 


【 例 7-8】 用 列表 方式 显示 出 字典 中 的 所 有 项 目的 值 。 
(1) 创建 一 个 名 称 为 Dictionary.asp 的 文件 ， 其 代码 如 下 所 示 : 


<H3> 添 加 字典 条 目 </H3> 

<Form Action="<%=Request.ServerVariables("Script Name")%>"> 
<Input Type="Text" Name="Key"> 

<Input Type="Text" Name="value"> 

<Input Type="submit" Value=" 添 加 条 目 "> 

</Fom> 
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<Hr> 
<% 

Dim strToDict 
strToDict=Trim(Request.Querystring("key")) 
strValue=Trim(Request.Querystring("value")) 

If Len(strToDict)>0 Then 

"检查 字 典 是 否 存在 

If IsEmpty(Session("MyDict")) Then 
Set Session ("MyDict")=Server.CreateObject("Scripting.Dictionary") 
EndIf 
Dim myLocalDict 
Set myLocalDict=Session("MyDict") 
myLocalDict.Add strToDict.strValue 。“ ' 添 加 字典 条 目 
EndIf 
%> 
<H3> 列 表 字 典 的 内 容 </H3> 
<% 
IfIsEmpty(Session("MyDict")) Then 
Response.Write "字典 是 空 的 ! " 
Else 
Dim aKeys,aValues.i 
Set myLocalDict=Session("MyDict") 
aKeys=myLocalDict.Keys 
aValues=myLocalDict.Items 
For i=0 To myLocalDict.Count-1 
Response. Write aKeys(i)&"="&aValues(D)&"<Br>" 
Next 
End If 
%> 


(2) 将 Dictionary.asp 文件 保存 后 ， 其 运行 结果 如 图 7-13 所 示 。 
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图 7-13 随机 生成 整数 
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7.12 开发 ASP 自 定义 组 件 


ActiveX 组 件 是 一 个 存在 于 Web 服务 器 上 的 文件 ， 该 文件 包含 执行 某 项 或 一 组 任务 的 
代码 。 组 件 可 以 执行 公用 任务 ， 这 样 网 站 开发 者 就 不 必 逐 一 去 创建 执行 这 些 任务 的 代码 。 
例如 ， 使 用 一 个 股票 行情 收报 机 组 件 即 可 以 在 Web 页 上 显示 最 新 的 股票 报价 。 

除了 ASP 自 带 的 几 个 基本 组 件 之 外 , 网 站 的 开发 者 还 可 从 第 三 方 开 发 商 购买 一 些 已 制 
作 完 成 的 组 件 ， 直 接 运 用 它们 来 完成 各 种 各 样 的 任务 。 除 此 之 外 ， 还 可 用 任何 支持 组 件 对 
象 模型 (COM:Component Object Model) 的 编程 语言 (如 Visual C++、Java、Visual Basic) 来 编 
写 自 己 的 组 件 。 组 件 是 可 以 重复 使 用 的 ， 在 Web 服务 器 上 安装 组 件 后 ， 就 可 以 从 ASP 脚 
本 、ISAPI 应 用 程序 、 服 务 器 上 的 其 他 组 件 或 另 一 种 COM 兼容 语言 编写 的 程序 中 调用 该 
组 件 。 

要 使 用 组 件 提供 的 对 象 ， 首 先 要 创建 对 象 的 实例 并 将 这 个 新 的 实例 分 配 变量 名 。 使 用 
ASP 的 Server.CreateObject 方法 可 以 创建 对 象 的 实例 ， 然 后 可 使 用 脚本 语言 的 变量 分 配 指 
令 为 对 象 实例 命名 。 创 建 对 象 实例 时 ， 必 须 提供 实例 的 注册 名 称 PROGID 。 如 下 例 将 创建 

-个 Ad Rotator 广告 条 对 象 : 
<% Set MyAds = Server.CreateObject(" MSWC.AdRotator") %> 

注意 : 

必须 使 用 ASP 的 Server.CreateObject 方法 来 创建 对 象 实例 , 否则 ASP 无 法 跟踪 脚本 语 
言 中 对 象 的 使 用 。 

使 用 HTML<OBJECT> 标 签 同样 可 以 创建 对 象 实例 ， 但 必须 为 RUNAT 属性 提供 服务 
器 值 ， 同 时 也 要 为 将 在 脚本 语言 中 使 用 的 变量 名 提供 ID 属性 组 。 使 用 注册 名 称 (PROGID) 
或 注册 号 码 (CLSID) 可 以 识别 该 对 象 。 下 面 的 例子 使 用 注册 名 (PROGID) 创 建 Ad Rotator 对 
象 的 实例 : 


< OBJECT RUNAT=Server ID=MyAd PROGID="MSWC.AdRotator"></OBJECT> 


7.13 习 题 


7.13.1 填空 题 


1. 使 用 组 件 可 快速 在 网 站 上 建立 一 个 广告 系统 ， 它 允许 在 每 次 访问 ASP 
页 面 时 在 页 面 上 显示 新 的 广告 。 
2. 广告 条 放置 到 网 站 后 ,用 户 对 广告 条 进行 单 击 操作 后 , ASP 就 会 打开 文件 。 
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3. ASP 服务 器 的 组 件 通过 读 取 计 划 文 件 来 完成 的 网 页 内 容 的 显示 , 通常 是 
自动 轮换 显示 一 些 HTML 内 容 。 
4. 在 Content Linker 组 件 的 列表 文件 中 ， 第 一 列 的 URL 和 第 二 列 的 链接 描 必 须 用 


键 来 隔 开 。 
5. ASP 服务 器 的 组 件 用 于 检测 客户 端 浏览 器 的 能 力 。 组 件 用 
来 测试 访问 者 对 某 文件 或 某 页 的 访问 权 。 
7.13.2 选择 题 


1. 在 广告 轮 显 组 件 中 ， 假 如 在 广告 信息 文件 中 设置 Border 为 1， 然 后 在 页 面 中 又 设置 
了 Border 属性 值 为 3， 则 显示 在 页 面 中 的 广告 图 片 的 边框 宽度 为 ( )。 
A.0 B.1 C.3 D.4 
2. 在 文件 超 链接 组 件 中 ， 假 如 使 用 GetNextURL 方法 读 取 到 了 最 后 1 个 文件 的 URL， 
如 果 继续 执行 该 方法 ， 将 会 读 取 ( ”) 文 件 的 URL。 
A. 第 1 个 B. 最 后 1 个 C. 停止 不 动 D. 程序 会 出 错 


7.13.3 ”问答 题 


1. 简 述 广告 轮 显 组 件 的 工作 原理 。 
2. ASP 有 哪儿 种 调用 组 件 的 方法 ? 


7.13.4 ”操作 题 
1. 使 用 Content Linker 组 件 调用 列表 文件 ， 实 现 页 面 的 列表 跳 转 ， 程 序 运行 结果 如 图 


7-14 所 示 。 
2. 创建 一 个 可 对 字典 进行 项 目 查询 的 页 面 ， 程 序 运行 结果 如 图 7-15 所 示 。 
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图 7-14” 跳 转 到 指定 章节 图 7-15 查询 字典 内 容 
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ASP 的 File Access 组 件 提 供 了 可 用 来 访问 计算 机 文件 系统 的 方法 和 属性 。File Access 
组 件 使 用 FSO(File System Object) 对 象 模型 来 处 理 服 务 器 端的 文件 、 文件 夹 和 驱动 器 。 使 用 
FSO 可 以 建立 、 删 除 、 移 动 文件 和 文件 夹 ， 检 查 文件 和 文件 夹 是 否 存在 ， 以 及 更 改 文件 和 
文件 夹 的 名 字 。 

教学 目标 

通过 对 本 章 的 学 习 ， 读 者 能 够 了 解 FSO 中 各 对 象 的 属性 和 方法 ， 并 熟练 地 使 用 FSO 
对 本 机 的 文本 文件 进行 各 种 基本 操作 。 


教学 重点 与 难点 

FileSystemObject 对 象 的 属性 和 方法 
TextStream 对 象 的 属性 和 方法 

创建 一 个 文本 文件 

读 取 文本 文件 


8.1 FSO 组 件 概 述 


File Access 组 件 提供 可 用 于 在 计算 机 文件 系统 中 检索 和 修改 文件 的 对 象 。 用 户 可 以 使 
用 File Access 组件 创建 FileSystemObject 对 象 ， 简 称 为 FSO。FSO 提供 用 于 访问 文件 系统 
的 方法 、 属 性 和 集合 。 

FSO 可 以 用 来 对 驱动 器 、 文 件 夹 以 及 文件 等 对 象 进行 相关 的 处 理 操作 。 它 可 以 检测 并 
显示 出 系统 驱动 器 的 信息 分 配 情况 ， 可 以 创建 、 改 变 、 移 动 和 删除 文件 夹 ， 并 能 探测 一 些 
给 定 的 文件 夹 是 否 存 在 ;可 以 提取 出 文件 夹 的 信息 ， 如 名 称 、 被 创建 或 最 后 一 次 修改 的 日 
期 等 。 


注意 : 

FSO 对 象 模式 使 文件 处 理 变 得 很 容易 。 当 只 想 存 取 一 些 更 新 量 较 小 的 数据 时 ， 可 把 它 
们 存储 在 二 进 制 或 文本 文件 中 ， 然 后 用 FSO 来 创建 文件 ， 插 入 和 改变 数据 ， 以 及 输出 ( 读 
取 ) 数 据 。 


数据 存储 在 数据 库 中 ， 如 Access 或 SQL 服务 器 ， 会 给 应 用 程序 增加 很 大 的 开销 。 而 
使 用 FSO 将 数据 存储 在 文本 文件 中 读 取 可 节省 系统 资源 。 
FSO 组 件 中 包含 多 个 对 象 和 集合 ， 其 名 称 和 相关 说 明 如 表 8-1 所 示 。 
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表 8-1 FileSystemObject(FSO) 包 含 的 对 象 和 集合 


对 象 /集合 描 述 
主 对 象 。 包含 用 来 创建 、 删 除 和 获得 有 关 信 息 ， 以 及 通常 用 来 操作 驱动 器 、 文 件 
FileSystemObject | 夹 和 文件 的 方法 和 属性 。 和 该 对 象 相关 联 的 许多 方法 ， 与 其 他 FSO 对 象 中 的 方 
法 完全 相似 ; 它们 是 为 了 方便 才 被 提供 的 
对 象 。 包含 用 来 收集 信息 的 方法 和 属性 ， 这 些 信息 是 关于 连接 在 系统 上 的 驱动 器 
Dv 的 ， 如 驱动 器 的 共享 名 和 它 有 多 少 可 用 空间 。 注意 ，Drive 并 非 必须 是 硬盘 ， 也 可 
以 是 CD-ROM 驱动 器 、RAM 磁盘 等 。 并 非 必须 把 驱动 器 实物 地 连接 到 系统 上 ， 
它 也 可 以 通过 网 络 在 逻辑 上 被 连接 起 来 
集合 。 提供 驱动 器 的 列表 , 这 些 驱 动 器 实物 地 或 在 逻辑 上 与 系统 相连 接 。Drives 集 
Drives 合 包括 所 有 驱动 器 ， 与 类 型 无 关 。 要 可 移动 的 媒体 驱动 器 在 该 集合 中 显现 ， 不 必 
把 媒体 插入 到 驱动 器 中 
这 对 象 。 包 含 用 来 创建 、 删 除 或 移动 文件 的 方法 和 属性 。 也 用 来 向 系统 询问 文件 名 、 
路 径 和 多 种 其 他 属性 
Files 集合 。 提 供 包含 在 文件 夹 内 的 所 有 文件 的 列表 
Fo 对 象 。 包 含 用 来 创建 、 删 除 或 移动 文件 夹 的 方法 和 属性 。 也 用 来 向 系统 询问 文件 
夹 名 、 路 径 和 多 种 其 他 属性 
Folders 集合 。 提 供 在 Folder 内 的 所 有 文件 夹 的 列表 
TextStream 对 象 。 用 来 读 写 文本 文件 
注意 : 


与 FileSystemObject 主 对 象 相关 联 的 很 多 方法 重复 了 另外 4 个 对 象 中 的 方法 。 因 此 既 
可 以 通过 FileSystemObject 主 对 象 来 对 了 驱动器、 文件 夹 和 文件 进行 大 多 数 操作 ， 也 可 以 通 
过 对 应 的 驱动 器 、 文 件 夹 或 文件 对 象 对 这 些 组 件 进行 操作 。 


FSO 模型 通过 两 种 方法 实现 对 同一 对 象 的 操作 ， 其 操作 效果 是 相同 的 ， 提 供 这 种 元 余 
功能 的 目的 是 为 了 实现 最 大 的 编程 灵活 性 。 
使 用 FSO 编程 ,首先 要 用 Server.CreatObject0 方 法 创建 FileSystemObject 对 象 ， 如 下 
例 所 示 : 
<% 
Dim MyFileObject 
Set MyFileObject =Server.Create Object("Scripting.FileSystemObject") 
%> 
创建 FileSystemObject 对 象 后 ， 就 可 以 使 用 它 创 建 、 打 开 或 读 写 文件 ， 以 及 对 文件 和 
文件 夹 进行 新 建 、 复 制 、 移 动 、 删 除 等 操作 。FileSystemObject 对 象 的 方法 及 相关 说 明 ， 如 
表 8-2 所 示 。 
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表 8-2 FileSystemObject 对 象 的 方法 
方 ” 法 说 了 明 
CreateTextFile 创建 一 个 文本 文件 
OpenTextFile 打开 一 个 已 有 的 文本 文件 
GetFile 返回 与 指定 路 径 中 某 文件 相应 的 File 对 象 
GetExtensionName 获得 文件 扩展 名 
CopyFile 复制 一 个 文件 
MoveFile 移动 文件 ， 将 文件 从 一 个 路 径 移 到 另 一 个 路 径 
ii 删除 文件 ， 其 第 一 个 参数 是 要 删除 的 文件 ， 第 二 个 参数 是 说 明 是 否 强 
行 删除 (如 果 文件 是 只 读 或 隐 含 等 ) 
FileExists 如 果 指 定 的 文件 存在 ， 返 回 Tre; 否则 返回 False 
GetFolder 返回 与 指定 的 路 径 中 某 文 件 夹 相 应 的 Folder 对 象 
CreateFolder 创建 一 个 目录 
CopyFolder 复制 整个 目录 ， 会 复制 这 个 目录 下 的 所 有 文件 
MoveFolder 移动 目录 ， 会 移动 目录 下 包含 的 全 部 文件 
DeleteFolder 删除 目录 ， 会 删除 目录 下 所 有 文件 ， 并 且 删 除 的 文件 不 会 进入 回收 站 
FolderExists 如 果 指 定 的 文件 夹 存在 ， 返 回 True; 否则 返回 False 


8.2 ”利用 Fso 组 件 读 写 文件 


FSO 功能 最 强大 的 部 分 就 是 对 文件 的 操作 ， 可 以 用 来 记 数 、 内 容 管理 、 搜 索 ， 还 可 以 
用 来 生成 动态 HTML 页 面 等 。 

新 建文 本 文件 需要 使 用 FileSystemObject 对 象 和 该 对 象 的 CreateTextFile 方法 。 
TextStream 对 象 提 供 对 存储 在 磁盘 上 文件 的 访问 ， 能 够 读 出 或 写 入 顺序 文本 文件 。 


8.2.1 TextStream 对 象 简介 


TextStream 对 象 必须 通过 FileSystemObject 对 象 进行 实例 化 ， 所 以 可 以 把 TextStream 
对 象 当 作 是 FileSystemObject 对 象 的 子 对 象 。Textstream 对 象 的 方法 及 其 相关 说 明 ， 如 表 
8-3 所 示 。 


表 8-3 TextStream 对 象 的 方法 
为 ， 法 说 了 明 
Close | 用 来 关闭 一 个 已 打开 的 数据 流 文件 和 其 对 应 的 文本 文件 


Read 从 光标 的 当前 位 置 开 始 ， 从 打开 的 文件 文本 中 读 取 一 定 的 字符 数目 
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( 续 表 ) 


用 来 读 取 一 个 已 打开 的 数据 流 文 件 内 的 所 有 数据 
用 来 读 取 一 个 已 打开 的 数据 流 文件 内 的 一 行 数 据 
用 来 跳 过 已 打开 的 数据 流 文件 内 的 字符 数目 


ReadAll 


ReadLine 


Sk 


SkipLine 用 来 跳 过 已 打开 的 数据 流 文件 内 的 一 整 行 数据 
Write 用 来 写 入 数据 至 一 个 已 打开 的 数据 流 文件 
WriteLine 用 来 写 入 一 整 行 数据 至 一 个 已 打开 的 数据 流 文件 


WriteBlankLines 用 来 指定 欲 写 入 的 新 行 数目 
TextStream 对 象 的 属性 及 其 相关 说 明 ， 如 表 8-4 所 示 。 


表 8-4 TextStream 对 象 的 属性 


属 性 说 明 
AtEndOfLine 当 光 标 位 于 当前 行 的 末尾 时 ， 其 值 为 Tme， 否 则 为 False 
AtEndOfStream 当 光 标 位 于 流 的 末尾 时 ， 其 值 为 True， 否则 为 False 
Column 计算 从 行 首 到 当前 光标 位 置 的 字符 数 
Line 计算 光标 所 在 行 在 整个 文件 中 的 行 号 


8.2.2 创建 一 个 文本 文件 


创建 或 打开 一 个 文本 文件 并 返回 TextStram 对 象 可 使 用 CreateTextFile 方法 或 
OpenTextFile 方法 。 

1. CreateTextFile 方法 

用 CreateTextFile 方法 创建 新 的 文本 文件 ， 或 覆盖 一 个 已 存在 的 文件 。 返 回 的 
TextStream 对 象 可 用 来 读 写 文件 ， 其 语法 结构 如 下 : 

Object.CreateTextFile(filename[.overwrite[.unicode]]) 

以 上 语法 结构 中 各 部 分 的 含义 如 下 : 

e@ Object 应 为 FileSystemObject 或 Folder 对 象 的 名 称 。 

e filename 是 字符 串 ， 用 于 指明 待 创 建 的 文件 。 

e overwrite 指明 是 否 可 覆盖 已 有 的 文件 ， 若 设 为 True， 则 可 以 覆盖 ， 若 设 为 False( 默 
认 )， 则 不 能 覆盖 。 
unicode 指明 是 以 unicode 格式 还 是 以 ASCII 格式 创建 文件 ， 若 设 为 True， 则 以 
unicode 格式 创建 ， 若 设 为 False( 默 认 )， 则 以 ASCII 格式 创建 。 

例如 ， 使 用 CreateTextFile 方法 在 真实 路 径 指定 的 位 置 创建 一 个 空 的 文本 文件 的 程序 
代码 如 下 : 
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<% 
Dim fso,fil 
Set fso=Server.CreateObject("Scripting.FileSystemObject") 
Set fil=fso.CreateTextFile("D:\My webs\testl.txt".True) 
%> 


注意 : 

通过 FSO 打开 驱动器、 打开 文件 夹 、 打 开 文 件 ， 只 能 使 用 指定 的 绝对 物理 路 径 地 址 ，。 
而 文本 文件 创建 的 位 置 常 需要 使 用 虚拟 路 径 来 指定 ， 因 为 这 样 可 便于 将 应 用 程序 转移 到 不 
同 的 计算 机 上 运行 ， 所 以 对 虚拟 路 径 常 使 用 Server.MapPath0 方 法 将 其 转化 为 真实 路 径 。 


2. OpenTextFile 方法 


用 OpenTextFile 方法 打开 一 个 已 有 的 文本 文件 ， 也 可 创建 一 个 文本 文件 。 它 返回 一 个 
TextStream 对 象 ， 可 用 这 个 对 象 对 文件 读 或 追加 数据 。 


Object.OpenTextFile(filename[,iomode[,create[,format]]]) 


以 上 语法 结构 中 各 部 分 的 含义 如 下 : 
e@ Object 应 为 FileSystemObject 对 象 的 名 称 。 
。 filename 是 字符 串 ， 用 于 指明 待 创建 的 文件 。 
e iomode 用 于 指定 输入 /输出 模式 ， 取 值 为 1( 以 只 读 模式 打开 ， 不 能 对 文件 进行 写 
作 )、2( 以 只 写 方式 打开 ， 不 能 对 文件 进行 读 操作 ) 或 8( 以 追加 方式 打开 ， 可 以 在 文 
件 末 尾 进行 写 操 作 )。 
。 create 指出 文件 不 存在 时 是 否 创建 ， 默 认 是 False， 若 要 创建 ， 可 设 为 True。 
e format 指出 以 何 种 格式 打开 文件 , 取 值 是 - 2( 以 系统 默认 格式 打开 )、- 1( 以 unicode 
格式 打开 ) 或 0( 以 ASCII 格式 打开 )。 
例如 ， 使 用 OpenTextFile 方法 在 虚拟 路 径 指定 的 位 置 创 建 一 个 空 的 文本 文件 的 程序 代 
码 如 下 : 
<% 
Dim fso.ts 
Const ForWriting=2 
Set fso=CreateObject("Scripting.FileSystemObject") 
Set fs=fs0.OpenTextFile(Server.MapPath("test2.txt").ForWriting, True) 
%> 


8.2.3 ”向 文本 文件 中 添加 数据 


文本 文件 一 经 创建 ， 就 可 以 分 3 步 向 其 中 加 入 数据 : 即 打开 文件 以 备 写 入 数据 ， 写 入 
数据 ， 关 闭 文件 。 打 开 文件 的 方法 有 两 种 :第 一 种 是 用 File 对 象 的 OpenAsTextStream 方 
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法 ， 第 二 种 是 用 FileSystemObject 对 象 的 OpenTextFile 方法 。 

打开 文件 后 ， 就 可 以 用 TextStream 对 象 的 Write 或 WriteLine 方法 来 写 入 数据 ， 两 者 
间 的 唯一 差别 是 WriteLine 方法 会 在 字符 串 的 末尾 添加 换行 符 。 如 果 想 在 文本 文件 中 添加 
一 个 空 行 ， 可 使 用 WriteBlankLines 方法 。 


注意 : 
对 文本 文件 的 操作 进行 完成 后 ， 要 使 用 TextStream 对 象 的 Close 方法 关闭 文件 。 


【 例 8-1】 创建 一 文本 文件 ， 并 写 入 文本 和 空 行 ， 创 建 后 的 文本 如 图 8-1(a) 所 示 。 
(1) 创建 一 个 名 称 为 textfile.asp 的 文件 ， 其 代码 如 下 所 示 : 


<% 
Dim fso,fil 
Set fso=CreateObject("Scripting.FileSystemObject") 
Set fil=fso.CreateTextFile(Server.MapPath("test3.txt"),True) 
全 .Write("*** 第 一 句 文本 ") 
全 .WriteLine("*** 第 二 句 带 换行 符 的 文本 ") 
全 .WriteLine("*** 第 三 句 带 换行 符 的 文本 ") 
锯 .WriteBlankLines(2) “' 写 入 两 个 空白 行 
全 .Write("*** 第 四 句 文本 ") 
人 .Close “关闭 文件 
%> 


(2) 在 服务 器 主 目录 中 运行 textfile.asp 文件 后 将 创建 test3.txt 文件, 打开 该 文本 文件 后 
如 图 8-1(b) 所 示 。 


网 区 
en 
A mer 

© Nr xm me 
9 ms 


x Mer 


一 | 
(a) 创建 的 test3.txt 文件 (b) test3.txt 文件 内 容 
图 8-1 向 文本 文件 中 添加 数据 


8.2.4 读 取 文 本 文件 中 的 内 容 


要 从 文本 文件 中 读 取 数据 ， 可 以 使 用 TextStream 对 象 的 Read、ReadLine 或 者 ReadAll 
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方法 。Read 方法 从 文本 文件 中 读 取 指 定数 量 的 字符 ; ReadLine 方法 读 取 一 整 行 , 但 不 包括 
换行 符 ，ReadAll 方法 读 取 一 个 文本 文件 的 所 有 内 容 。 
在 使 用 Read 或 ReadLine 方法 时 ,还 可 以 用 Skip 方法 跳 过 几 个 字符 , 或 者 用 SkipLine 
方法 跳 过 几 行 。 
【 例 8-2】 分 别 使 用 Read、ReadLine 或 者 ReadAll 方法 读 取 【 例 8-1】 所 创建 的 文本 文 
件 test3.txt 中 的 内 容 。 
(1) 创建 一 个 名 称 为 Readfile.asp 的 文件 ， 如 图 8-2(a) 所 示 ， 其 代码 如 下 所 示 : 
<% 
Dim fso.fl,ts.,s1,s2 
Const ForReading=1 


Set fso=CreateObject("Scripting.FileSystemObject") 
Set ts=fs0.OpenTextFile(Server.MapPath("test3.txt"),ForReading) 


sl=ts.Read(3) 

Response.Write "文件 的 前 三 个 字符 内 容 是 : "&sl&"" 

Response.Write "<Br><Br>" 

ts.Skip(5) "从 当前 位 置 往 后 跳 过 5 个 字符 
S2=ts.ReadLine 


Response.Write "第 一 行 剩 下 的 内 容 是 : "&s2&""&"<Br><Br>" 
Response.Write "文本 剩 下 的 内 容 是 : "&ts.ReadAll&""&"<Br>" 
ts.Close 

%> 


C 


二 


在 服务 器 主 目 录 中 运行 Readfile.asp 文件 后 ， 效 果 如 图 8-2(b) 所 示 。 


mr 1587200 clxl 
GO Jol 
FNO WMD UD PRA IAVD MRD 
RR Br | | 全 -加 O° 
文件 的 料 三 个 字符 内 容 是 ，" we 引 
划一 行 和 下 的 内 容 是 ，，w* 香 二 铝 融 执行 和 的 文本 

文 机 和 下 的 内 容 是 ，' er 甘 三 句 涟 扫 生 符 的 文本 vv 第 四 句 文本 


(a) 程序 代码 (Cb) 在 浏览 器 显示 test3.txt 文件 内 容 
图 8-2 读 取 文本 文件 内 容 


8.3 ”利用 FSO 组 件 管理 文件 


File 对 象 提供 了 对 文件 属性 的 访问 ， 通 过 它 的 方法 能 够 对 文件 进行 操作 。File 对 象 允 
许 复 制 、 删 除 以 及 移动 文件 ， 还 可 以 利用 它 检 测 一 个 文件 是 否 存 在 和 查看 一 个 文件 具有 什 
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么 属性 。 下 面 将 介绍 利用 FSO 组 件 管理 文件 的 方法 。 


8.3.1 File 对 象 简介 


File 对 象 的 属性 及 其 相关 说 明 ， 如 表 8-5 所 示 。 


表 8-5_File 对 象 的 属性 及 说 明 


属 性 说 了 明 

设置 或 返回 文件 的 系统 属性 。 可 以 是 下 列 值 中 的 一 个 或 其 组 合 0( 表 示 普 

ce 通 文件 )、1( 表 示 只 读 文 件 )、2( 表 示 隐 藏 文件 )、4( 表 示 系 统 文件 )、16( 表 
示 文件 夹 或 目录 )、32( 表 示 上 次 备份 后 已 更 改 的 文件 )、1024( 表 示 链 接 或 
快捷 方式 ) 和 2048( 表 示 压 缩 文件 ) 

DateCreated 返回 该 文件 的 创建 日 期 和 时 间 

DateLastAccessed 返回 最 后 一 次 访问 该 文件 的 日 期 和 时 间 

DateLastModified 返回 最 后 一 次 修改 该 文件 的 日 期 和 时 间 

Drive 返回 该 文件 所 在 的 驱动 器 的 Drive 对 象 

Name 设 定 或 返回 文件 的 名 字 

ParentFolder 返回 该 文件 的 父 文件 夹 的 Folder 对 象 


Path 返回 文件 的 绝对 路 径 ， 可 使 用 长 文件 名 

ShortName 返回 DOS 风格 的 8.3 形式 的 文件 名 

ShortPath 返回 DOS 风格 的 8.3 形式 的 文件 绝对 路 径 

Size 返回 该 文件 的 大 小 ( 字 节 ) 

Type 如 果 可 能 ， 返 回 一 个 文件 类 型 的 说 明 字 符 串 
注意 : 


每 个 Folder 对 象 提供 了 一 个 Files 集合 ， 包 含 文件 夹 中 文件 对 应 的 File 对 象 。 还 可 以 
直接 使 用 GetFile() 方 法 从 FileSystemObject 对 象 中 得 到 一 个 File 对 象 引 用 。 

File 对 象 的 方法 允许 复制 、 删 除 以 及 移动 文件 , 它 有 一 个 使 用 文本 流 打开 文件 的 方法 。 
File 对 象 的 方法 及 说 明 ， 如 表 8-6 所 示 。 


Copy(destination 


Overwrite) 


表 8-6 _File 对 象 的 方法 及 说 明 
说 阴 
将 这 个 文件 复制 到 destination 指定 的 文件 夹 。 如 果 destination 的 末尾 是 路 径 
分 隔 符 ()， 那 么 认为 destination 是 放置 复制 文件 的 文件 夹 。 否 则 认为 
destination 是 要 创建 的 新 文件 的 路 径 和 名 字 。 如 果 目 标 文件 夹 已 经 存在 且 
overwrite 参数 设置 为 False， 将 产生 错误 ， 默 认 的 overwrite 参数 是 Trme 
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( 续 表 ) 

方 ” 法 说 了 明 
删除 这 个 文件 。 如 果 可 选择 的 force 参数 设置 为 True， 文 件 即 使 具有 只 读 属 
性 也 会 被 删除 。 默 认 的 force 是 False 
将 文件 移动 到 destination 指定 的 文件 夹 
CreateTextFile 用 指定 的 文件 名 创建 一 个 新 的 文本 文件 , 并 且 返 回 一 个 相应 的 TextStream 对 象 
OpenAsTextStream | 打开 指定 文件 并 且 返 回 一 个 TextStream 对 象 , 用 于 文件 的 读 、 写 或 追加 .Jomode 
参数 指定 了 要 求 的 访问 类 型 。format 参数 说 明了 读 、 写 文件 的 数据 格式 

给 定 一 个 File 对 象 后 ， 可 以 使 用 ParentFolder 属性 得 到 包含 该 文件 的 Folder 对 象 的 引 
用 ， 用 来 在 文件 系统 中 导航 。 甚 至 可 以 用 Drive 属性 获得 相应 的 Drive 对 象 的 引用 ， 并 得 
到 各 种 Folder 对 象 以 及 所 包含 的 File 对 象 。 

注意 : 

另外 ， 给 定 一 个 Folder 对 象 以 及 对 应 的 Files 集合 后 ， 可 以 通过 遍历 该 集合 检查 这 一 
文件 夹 中 的 每 个 文件 ， 还 可 以 使 用 File 对 象 的 各 种 方法 以 一 定 方式 处 理 该 文件 ， 如 复制 、 
移动 或 删除 。 


8.3.2 移动、 复制 及 删除 文件 


Delete(force) 


Move 


(Jomode.format) 


FSO 对 象 模式 有 两 种 方法 来 移动 、 复 制 和 删除 文件 。 
e 移动 文件 :移动 一 个 文件 可 用 File 对 象 的 Move0 方 法 或 FileSystemObject 对 象 的 
MoveFile0 方 法 。 
复制 文件 ， 复制 一 个 文件 可 用 File 对 象 的 Copy0 方 法 或 FileSystemObject 对 象 的 
CopyFile0 方 法 。 

e 删除 文件 :删除 一 个 文件 可 用 File 对 象 的 Delete() 方 法 或 FileSystemObject 对 象 的 

DeleteFile() 方 法 。 

以 下 面 的 代码 为 例 ， 可 以 创建 一 文本 文件 (如 test4.txt)， 并 对 它 进行 复制 、 移 动 和 删除 

操作 。 


<% 
Dim fso.fl.f2.s 
Set fso=Server.CreateObject("Scripting. FileSystemObject") 
Set f1=fso.CreateTextFile(Server.MapPath("test4.txt").True) 
丘 .Write(" 这 是 一 个 测试 文件 ! ") 。' 写 一 行 
fl.Close "关闭 文件 
Set f2=fs0.GetFile(Server.MapPath("test4.txt")) 
亿 .-Move(Server.MapPath("testl\test4.txt")) 把 文件 移动 到 testl 目录 
他 .Copy(Server.MapPath("test2\test4.txt)) 把 文件 复制 到 test2 目录 
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set f3=fs0.GetFile(Server.MapPath("test2\test4.txt")) 
人 3.Delete ”删除 文件 
%> 


注意 : 
要 运行 以 上 代码 ， 需 要 先 在 驱动 器 根 目录 位 置 创建 \testl 和 \test2 目录 。 


8.3.3 检测 文件 和 文件 夹 是 否 存在 


使 用 FSO 对 象 的 FolderExists0 和 FileExists() 方 法 可 以 检测 文件 和 文件 夹 是 否 存在 , 若 
存在 ， 则 返回 True， 和 否则 返回 False。 
例如 以 下 代码 ， 检 测 一 个 指定 的 文件 是 否 存在 ， 并 在 网 页 中 返回 相应 的 结果 。 


<% 
Dim fso 
Set fso=Server.CreateObject("Scripting.FileSystemObject") 
If fso.FileExists(Server.MapPath("testS.txt")) Then 
Response. Write Server.MapPath("test5.txt")&" 存 在 " 
Else 
Response.Write Server.MapPath("test5.txt")&" 不 存在 " 
EndIf 
%> 


8.3.4 检测 文件 的 属性 


使 用 File 对 象 和 Folder 对 象 不 仅 可 以 实现 文件 或 文件 夹 的 各 种 操作 ,而且 能 得 到 文件 
和 文件 夹 的 各 种 属性 。 
例如 以 下 代码 ， 创 建 一 个 文件 ， 并 显示 这 个 文件 的 各 属性 值 ， 其 程序 运行 结果 ， 如 图 
8-3 所 示 。 
<Center><H2> 查 看 文件 的 属性 </H2></Center> 
<Hr> 
<% 
whichfile=Server.MapPath("test$.txt") 
Set fo = CreateObject("Scripting.FileSystemObject") 
Set fl = fso.CreateTextFile(whichfile,true) 
和 .Write ("这 是 一 个 测试 文件 .") 
fl.Close 
Set f2 = fs0.GetFile(whichfile) 
s= "文件 名 称 : "文人 .name & "<br>" 
s=Ss& "文件 短路 径 名 :" & 包 .shortPath & "<br>" 
s=s 及 "文件 物理 地 址 :" & 人 2.Path & "<br>" 
s=s& "文件 属性 :" & 人 .Attributes & "<br>" 


i 抽 
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s=s 玉 "文件 大 小 : " & 他 .size & "<br>" 

s=s 信 "文件 类 型 : " & 介 .type & "<br>" 

s=s 信 "文件 创建 时 间 : " & 人 2.DateCreated & "<br>" 
s=s& "最 近 访 问 时 间 : " & 人 2.DateLastAccessed & "<br>" 
Ss=s 人 "最 近 修改 时 间 : " 勾 包 .DateLastModified 
response.write(s) 


%> 
[ee = 
文件 中 畏 生 名 ) 合式 如 ) 本 看 0 攻 购 人 ie se 本 甩 ar Boweh =] 
[eewteryqz> 理 看 六 证 的 属 伍 </Wz>(/Eewtery 习 SR els: 
I 文件 们 商量 信 ) 查看 W)。 各 要 下) 工具 9) 可 购 0 
| 加 
| mienre-seruer .mpratnt-eeses-exe NE Bnei | | 人 -> 

一 


查看 文件 的 属性 


netpub Wwwroot \tests. trt 


文件 物理 她 址 ，D: \inetpubwmmwrootVteat5. txt 
文件 属性 ，32 

文件 大 小 ， 17 

文件 类 型， 


10 
2011-10-19 8:40:26 


| 9 
merr a 三 | 


图 8-3 向 文本 文件 中 添加 数据 


【 例 8-3】 用 文本 文件 编写 一 个 站 点 计数 器 ， 程 序 运 行 效果 如 图 8-4 所 示 。 
(1) 将 0-9 的 10 张 记 数 图 片 依次 命名 为 0.gif、2.gif …9.gif， 如 图 8-5 所 示 。 
(2) 在 服务 器 根 目录 下 新 建 一 个 文件 夹 ， 并 命名 为 num， 然 后 将 图 片 文件 放 入 其 中 。 
(3) 创建 一 个 名 称 为 jishuqi.asp 的 文件 ， 其 代码 如 下 所 示 : 


<Title> 计 数 器 示例 </Title> 
<Center><H2> 计 数 器 示例 </H2></Center> 
<Hr> 
<% 
dim fso,fi.counts,length 
Const ForReading = 1 
Const ForWriting = 2 
Set fo = Server.CreateObject("Scripting.FileSystemObject") 
if not fso.FileExists(Server.MapPath("count.log")) then 
Set f= fso.CreateTextFile(Server.MapPath("count.log")) 
f.WriteLine "0" 
f.Close 
endif 
Set f= fso0.OpenTextFile(Server.MapPath("count.log"). ForReading) 
rd=fReadLine 
counts = CLng(rd) 
f.Close 
' 用 户 首次 访问 时 Session("Counts") 为 空 ， 应 使 计数 器 加 1。 
if Session("Counts") = "" then 
counts = counts + 1 
Session("Counts") = counts 
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Setf= fso.CreateTextFile(Server.MapPath("count.log"). True) 
f WriteLine(counts) 
fClose 
endif 
length = len(counts) 
fori= 1 to8-length 
Response. Write "<IMG SRC=num\0.gif></IMG>" 
next 
fori= 1 to length 
Response. Write "<IMG SRC=" & "num\" & mid(counts.i.1) & ".gif></IMG>" 
next 
%> 


(4) 运行 jishuqi.asp 的 文件 ， 结 果 如 图 8-4 所 示 。 


ee i ) 
NANANANANN ( > 

5h4789 
- 图 8-4 计数 器 效果 四 图 8-5 数字 图 片 


8.4 利用 FSO 组 件 获取 驱动 器 信息 


通过 Drives 对 象 提供 的 属性 , 可 以 获得 系统 上 各 个 驱动 器 有 关 的 信息 , 这 些 驱 动 器 可 以 
是 物理 的 或 通过 网 络 逻辑 连接 到 系统 上 的 。Drives 对 象 的 属性 及 其 相关 说 明 , 如 表 8-7 所 示 。 


表 8-7_Drive 对 象 的 属性 及 说 明 


属 性 说 了 明 
AvailableSpace 返回 驱动 器 上 对 于 该 用 户 可 用 的 空间 大 小 
DriveLetter 返回 驱动 器 的 字母 
DriveTyp 返回 驱动 器 的 类 型 。 如 可 移动 的 、 固 定 的 、 网 络 、CD-ROM 或 RAM 得 
FileSystem 返回 驱动 器 文件 系统 的 类 型 。 返 回 值 包括 FAT 和 NTFS 等 
FreeSpace 返回 驱动 器 上 可 用 剩余 空间 的 总 量 
IsReady 返回 一 个 布尔 值 表明 驱动 器 是 否 已 准备 好 
Path 返回 一 个 由 驱动 器 字母 和 冒号 组 成 的 驱动 器 路 径 ， 如 C: 
RootFolder 返回 代表 驱动 器 根 目录 文件 夹 的 Folder 对 象 
SerialNumber 返回 一 个 用 于 识别 磁盘 卷 的 十 进 制 的 序列 号 
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( 续 表 ) 
属 性 说 了 明 
ShareName 如 果 是 一 个 网 络 驱动 器 ， 返 回 该 驱动 器 的 网 络 共享 名 
TotalSize 返回 驱动 器 的 总 容量 (以 字 节 为 单位 ) 
VolumeName 设 定 或 返回 本 地 驱动 器 卷 名 


以 上 属性 所 代表 的 意义 ， 可 以 通过 下 面 的 程序 查看 服务 器 上 一 个 驱动 器 的 有 关 属 性 
信息 来 进一步 了 解 。 
<% 
dim ObijfileSys 
dim MyDrive 
set ObjFileSys=Server.CreateObject("Scripting.FileSystemObject") 
set MyDrive=ObjFileSys.GetDrive("d") 
Response.write MyDrive.AvailableSpace&"<br>” “”' 输 出 该 驱动 器 上 的 可 用 控件 


Response.write MyDrive.DriveLetter&"<br>" ' 输 出 该 驱动 器 的 名 称 
Response.write MyDrive.DriveType&"<br>" ' 输 出 该 驱动 器 的 类 型 
Response.write MyDrive FileSystemé&"<br>" "输出 文件 系统 的 文件 结构 
Response.write MyDrive.FreeSpace&"<br>" "输出 输出 驱动 器 上 的 剩余 空间 
Response.write MyDrive.Path&"<br>" "输出 驱动 器 的 路 径 信息 
Response .write MyDrive .RootFolder&"<br>" ' 返 回 一 个 Folder 并 指向 根 目录 
Response .write MyDrive.SerialNumber&"<br>" "输出 驱动 器 的 序列 号 
Response.write MyDrive.ShareName&"<br>" ' 返 回 网 络 驱动 器 共享 名 
Response.write MyDrive.TotalSize&"<br>" 输出 驱动 器 上 的 空间 大 小 
Response.write MyDrive.VolumeName&"<br>" ' 输 出 驱动 器 的 卷 标 
%> 
以 上 程序 执行 后 的 结果 如 图 8-6 所 示 。 
[adn wiresys 9 文件 中 名 号 二 看 名 世宗 天 工具 人 0 条 隐 00 
Eat jissycrsereer .createsejeet ET | 


("Seripting,FileSystenbbject") 

Set WDrive-ObjFilesys. GetoriveC"d") 
write Worive.nvallablespacee”®cor>" 

write 的 Driue Driuetetter8wdhry” 


5545406464 
D 


MIFS 

5545406464 

D: 

D:\ 

-1673150659 

32218386432 
| 


图 8.6 输出 结果 


到 
| 大" [mw ”| 


【 例 8-4】 使 用 Drives 对 象 显示 系统 上 所 有 驱动 器 的 信息 。 
(1) 创建 一 个 名 称 为 Drives.asp 的 文件 ， 其 代码 如 下 所 示 : 
<title> 检 测 驱 动 器 </Title> 


<Center><H2> 您 的 计算 机 上 各 驱动 器 相关 信息 </H2> 
<Hr> 
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<% 

Function tran(Driver) 

Select Case Driver 

Case 0: tran=" 设 备 无 法 识别 " 
Case 1: tran=" 软 盘 驱动 器 " 
Case 2: tran= "硬盘 驱动 器 " 
Case 3: tran=" 网 络 硬盘 驱动 器 " 
Case 4: tran=- "光盘 驱动 器 " 
Case 5: tran="RAM 虚拟 磁盘 " 
End Select 

End Function 

set fso=Server.CreateObject("Scripting.FileSystemObject") 
%> 


<table border=1 width="100%"> 
<tr> 

<td> 盘 符 </td> 
<td> 类 型 </td> 
<td> 卷 标 </td> 
<td> 总 计 大 小 </td> 
<td> 可 用 空间 </td> 
<td> 文 件 系统 </td> 
<td> 序 列 号 </td> 
<td> 是 否 可 用 </td> 
<td> 路 径 </td> 
</tr> 

<% 


"如 果 系统 的 某 个 驱动 器 里 没有 磁盘 ， 比 如 软驱 中 无 软盘 或 CD-ROM 驱动 器 里 没有 光盘 ， 将 得 
到 一 个 错误 提示 : “驱动 器 不 存在 ”。 使 用 错误 处 理 语句 可 强行 将 程序 跳 转 去 检查 下 一 驱动 器 


on error resume next 
For each drv in fso.Drives 
Response. Write "<tr>" 
Response. Write "<td>" & drv.DriveLetter & "</td>" 
Response.write "<td>" & tran(drv.DriveType) & "</td>" 
Response.write "<td>" & drv.VolumeName & "</td>" 
Response.write "<td>" & FormatNumber(drv.TotalSize / 1024. 0)& "</td>" 
Response.write "<td>" & FormatNumber(drv.Availablespace / 1024. 0) & "</td>" 
Response.write "<td>" & drv.FileSystem & "</td>" 
Response.write "<td>" & drv.SerialNumber & "</td>" 
Response.write "<td>" & drv.ISReady & "</td>" 
Response.write "<td>" & drv.Path & "</td>" 
Response. Write "</tr>" 
Next 
set fs=nothing 
%> 
</table></Center> 
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(2) 运行 Drives.asp 文件 后 ， 结 果 如 图 8-7 所 示 。 
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有 “复查 驱 动 芝 
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图 8-7 向 文本 文件 中 添加 数据 


8.5 ”利用 FSO 组 件 管理 文件 夹 


通过 Folder 对 象 提供 的 属性 和 方法 ， 可 对 文件 夹 进行 各 种 操作 ， 其 中 包括 提取 文件 夹 
信息 、 创 建文 件 夹 、 删 除 文件 来、 复制 文件 夹 、 移 动 文件 夹 等 。 

Folder 对 象 提供 一 组 属性 ， 可 用 这 些 属性 得 到 关于 当前 文件 夹 的 更 多 信息 ， 也 可 以 改 
变 该 文件 夹 的 名 称 。Folder 对 象 的 属性 及 其 相关 说 明 ， 如 表 8-8 所 示 。 


表 8-8 _Folder 对 象 的 属性 及 说 明 


属 性 说 了 明 

返回 文件 夹 的 属性 。 可 以 是 下 列 值 中 的 一 个 或 其 组 合 , 正常 为 0、 只 读 为 1、 

Attributes 隐藏 为 2、 系统 为 4、 卷 为 8、 文件 夹 为 16、 存 档 为 32、 别 名 为 64 和 压缩 
为 128。 例 如 ， 一 个 隐藏 的 只 读 文件 ，Attributes 的 值 为 2 

DateCreated 返回 该 文件 夹 的 创建 日 期 和 时 间 

DateLastAccessed 返回 最 后 一 次 访问 该 文件 夹 的 日 期 和 时 间 

DateLastModified 返回 最 后 一 次 修改 该 文件 夹 的 日 期 和 时 间 

Drive 返回 该 文件 夹 所 在 的 驱动 器 字母 

Files 返回 Folder 对 象 包含 的 Files 集合 ， 表 示 该 文件 夹 内 所 有 的 文件 

IsRootFolder 返回 一 个 布尔 值 说 明 该 文件 夹 是 否 是 当前 驱动 器 的 根 文件 夹 

Name 设 定 或 返回 文件 夹 的 名 字 

ParentFolder 返回 该 文件 夹 的 父 文件 夹 对 应 的 Folder 对 象 

Path 返回 文件 夹 的 绝对 路 径 ， 使 用 相应 的 长 文件 名 

ShortName 返回 DOS 风格 的 8.3 形式 的 文件 夹 名 

ShortPath 返回 DOS 风格 的 8.3 形式 的 文件 夹 的 绝对 路 径 

Size 返回 包含 在 该 文件 夹 里 所 有 文件 和 子 文件 夹 的 大 小 

Sb 返回 该 文件 夹 内 包含 的 所 有 子 文件 夹 对 应 的 Folders 集合 , 包括 隐藏 文件 夹 
和 系统 文件 夹 


第 8 章 ASP 的 文件 处 理 “163 


以 下 程序 显示 了 D:test 文件 夹 的 所 有 属性 信息 : 


<% 
Dim ObijfileSys 
Dim MyDrive 
Set ObjFileSys=Server.CreateObject("Scripting.FileSystemObject") 
Set MyDrive=ObjFileSys.GetFolder("d:\test") 
Response.write MyDrive.Attributes&"<br>" 
Response.write MyDrive.DateCreated&"<br>" 
Response.write MyDrive.DateLastAccessed&"<br>" 
Response.write MyDrive.DateLastModified&"<br>" 
Response.write MyDrive.Drive&"<br>" 
Response.write MyDrive.Pathé"<br>" 
Response.write MyDrive.IsRootFolder&"<br>" 
Response.write MyDrive.Name&"<br>" 
Response.write MyDrive.ParentFolder&"<br>" 
Response.write MyDrive.Path&"<br>" 
Response.write MyDrive.ShortName&"<br>" 
Response.write MyDrive.ShortPath&"<br>" 
Response.write MyDrive.Size&"<br>" 

%> 


以 上 程序 执行 后 的 结果 ， 如 图 8-8 所 示 。 
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图 8-8 输出 结果 


JR 


注意 : 

在 表 8-8 所 示 的 属性 中 ，Files 与 SubForders 输出 的 是 数据 集合 ， 无 法 输出 。 

Folder 对 象 提供 一 组 可 用 于 复制 、 删 除 和 移动 当前 文件 夹 的 方法 。 这 些 方法 的 运行 方 
式 与 FileSystemObject 对 象 的 CopyFolder()、DeleteFolder() 和 MoveFolder() 方 法 相同 。 但 
Folder 对 象 的 方法 不 要 求 source 参数 ， 因 为 源 文件 就 是 这 个 文件 夹 。Folder 对 象 的 方法 及 
其 相关 说 明 ， 如 表 8-9 所 示 。 
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表 8-9_Folder 对 象 的 方法 及 说 明 


方 ” 法 说 阴 
Copy(destination.overwrite) 将 这 个 文件 夹 及 所 有 的 内 容 复制 到 destination 指定 的 文件 夹 
Delete(force) 删除 文件 夹 及 里 面 所 有 的 内 容 


将 文件 夹 及 里 面 所 有 的 内 容 移动 到 destination 指定 的 文件 夹 
用 指定 的 文件 名 在 文件 夹 内 创建 一 个 新 的 文本 文件 ， 并 且 返 回 
一 个 相应 的 TextStream 对 象 


Move(destination) 


CreateTextFile 


(filename.overwrite.unicode) 


【 例 8-5】 使 用 Folder 对 象 执行 建立 和 删除 文件 夹 操 作 。 
(1) 创建 一 个 名 称 为 Folder.asp 的 文件 ， 其 代码 如 下 所 示 : 


<%@ Language=VBScript %> 
<% 
Sub CreateAFolder(file) 
Dim fso 
Set fso = CreateObject("Scripting.FileSystemObject") 
fso.CreateFolder(file) 
response.write "已 经 建立 了 "&file 
End Sub 


Sub DeleteAFolder(file) 
Dim fso 
Set fo = CreateObject("Scripting.FileSystemObject") 
fso.DeleteFolder(file) 
response.write "已 经 删除 了 "&file 
End Sub 
%> 
<% 
subname=request.form("submit") 
create=request.form("create") 
del=request.form("del") 
if subname—>"" then 
if create>"" then 
call CreateAFolder(""&create&"") 
endif 
if del—>"" then 
call DeleteAFolder(""&del&"") 
endif 
endif 
%> 
<form action="<%=Request.ServerVariables("Script_ Name")%>" method="post"> 
<input name="create"> 
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<input type="submit" value=" 建 立 一 个 文件 夹 "name="submit"> 

</form> 

<h> 

<form action="<%=Request.ServerVariables("Script Name")%>" method="post"> 
<input name="del"> 

<input type="submit" value=" 删 除 文件 夹 " name="submit"> 

</form> 


(2) 运行 Folder.asp 文件 后 ， 结 果 如 图 8-9 所 示 。 


http: //10celhest/ Felder 230 22822 -zx mas 
GO le .dal IE GO le Hals|x| .| 
文 牛 旭 ”编辑 业 查看 WD 收藏 六) 工具 CI) 帮助 > 文件 如 编辑 下 查看 WW 收藏 光 (A) 工具 ) 才 助 > 
六 Wht/Nocbosvro | | 全 突 收 天。 大 hhocabosWro | | 从 -| 
Er | TT 
i Fe 

, 到 
EE [ElET [三 网 币 mre FRR 

图 8-9 输出 结果 


8.6 习 题 


8.6.1 填空 题 
1. FSO 组 件 可 以 用 来 对 以 及 文件 等 对 象 进行 相关 的 处 理 操作 。 
2. 使 用 FSO 编程 ， 首 先 要 用 方法 创建 FileSystemObject 对 象 。 
3. TextStream 对 象 的 方法 用 来 写 入 一 整 行 数据 至 已 打开 的 数据 流 文件 。 
8.6.2 ”选择 题 


1. 在 Folder 对 象 中 ， 下 面 ( 。“”) 属 性 可 以 返回 一 个 对 象 或 对 象 集合 。 
A. Drive B. ParentFolder C. SubFolders D. Files 
2. 下 面 不 能 创建 或 打开 一 个 文本 文件 并 返回 TextStram 对 象 的 方法 是 (。”)。 
A. CreateTextFile0 方 法 
B. WriteBlankLines0 方 法 
C. OpenAsTextStream() 方 法 
D. OpenTextFile0 方 法 
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3. 下 面 可 打开 文件 的 方法 有 ( ” )。 
A. File 对 象 的 OpenAsTextStream() 方 法 
B. FileSystemObject 对 象 的 OpenAsTextStream() 方 法 
C. File 对 象 的 OpenTextFile0 方 法 
D. TextStram 对 象 的 OpenAsTextStream0 方 法 
4. 下 面 不 能 从 文本 文件 中 读 取 数据 的 有 ( ”)。 
A. TextStream 对 象 的 Read0 方 法 
B. TextStream 对 象 的 ReadLine() 方 法 
C. TextStream 对 象 的 ReadAll0 方 法 
D. TextStram 对 象 的 OpenAsTextStream() 方 法 


8.6.3 问答 题 


1. 什么 是 File Access 组 件 的 FSO 对 象 ? 
2. 如 何 打开 文本 文件 ， 并 添加 数据 ? 


8.6.4 操作 题 


1. 列表 显示 站 点 根 目录 中 的 文件 夹 和 文件 ， 程 序 运 行 的 效果 ， 如 图 8-10 所 示 。 
2. 编制 一 个 语句 接龙 页 面 ， 程 序 运行 的 效果 ， 如 图 8-11 所 示 。 


图 8-10 显示 根 目录 的 文件 和 文件 夹 列表 图 8-11 英文 语 铅 接龙 
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数据 库 是 管理 大 量 、 一 致 、 可 靠 、 共 享 、 持 久 的 数据 资源 的 计算 机 软件 产品 。 数 据 库 
软件 是 动态 网 站 实现 互动 效果 的 一 个 非常 重要 的 核心 组 件 ， 是 支撑 以 电子 商务 、 网 上 论坛 
和 信息 发 布 为 代表 的 一 系列 网 络 服务 的 坚强 支柱 。 在 动态 网 页 的 开发 工作 中 , 应 用 ASP 内 
建 的 Datebase Access 组 件 , 可 以 非常 方便 地 通过 ActiveX Date Objects(ADO) 对 象 访问 存储 
在 服务 器 端的 数据 库 或 其 他 表格 化 数据 结构 中 的 信息 。 

教学 目标 

通过 对 本 章 的 学 习 , 读者 应 熟练 掌握 与 ADO 相关 的 数据 库 基 础 知识 ,了解 Connection 
对 象 和 Command 对 象 的 属性 和 方法 ， 可 编制 ASP 程序 与 数据 库 建立 连接 ， 并 进行 简单 的 
操作 。 

教学 重点 与 难点 

e ADO 概述 

e 创建 Connection 对 象 

e Command 对 象 的 基本 用 法 


9.1 Access 数据 库 简 介 


数据 库 的 主要 功能 是 存储 与 管理 数据 ， 在 目前 市 面 上 存在 的 多 种 形式 的 数据 库 产 品 
中 , 关系 型 数据 库 最 受 欢 迎 并 被 广泛 使 用 。 该 类 数据 库 将 数据 按 类 别 存储 在 各 种 数据 表 中 ， 
并 且 通 过 数据 表 之 间 的 关联 进行 数据 的 调整 和 搜索 等 维护 操作 。 


9.1.1 Access 数据 库 的 基本 操作 


Access 数据 库 是 目前 比较 流行 的 数据 库 管理 系统 , 它 是 一 个 运行 在 Windows 系统 环境 
下 的 桌面 关系 型 数据 库 , 也 是 Office 组 件 之 一 。 下 面 将 围绕 几 个 与 创建 Access 数据 库 相 关 
的 问题 进行 讲述 ， 以 便 用 户 对 该 数据 库 的 应 用 有 个 概括 的 了 解 。 

1. 认识 Access 数据 库 界面 


Access 数据 库 属于 比较 简单 的 小 型 的 数据 库 系 统 ， 一 般 用 于 小 型 公司 的 数据 管理 。 其 
基本 数据 库 概念 与 其 他 大 型 数据 库 系统 (如 Oracle 和 SQL Server 等 ) 并 没有 太 大 的 差别 。 
在 启动 Microsoft Access 2003 后 ， 用 户 首先 看 到 的 是 版 权 信息 ， 在 选择 “文件 ”|“ 新 
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建 ”命令 创建 一 个 库 文件 后 ， 就 可 以 进入 如 图 9-1 所 示 的 工作 界面 。Access 2003 的 工作 界 
面包 括 菜单 栏 、 工 具 栏 、 工 作 区 和 状态 栏 等 几 个 部 分 组 成 。 


工作 区 


9-1 Access 2003 的 工作 界面 


2. 创建 数据 库 


Access 数据 库 将 数据 按 类 别 存储 在 不 同 的 数据 表 中 ， 以 方便 数据 的 管理 和 维护 。 用 户 
要 设计 数据 表 ， 首 先 要 创建 一 个 数据 库 。 下 面 将 以 一 个 简单 的 实例 ， 详 细 介绍 建立 Access 
2003 数据 库 的 操作 步骤 。 

【 例 9-1] 在 服务 器 主 目录 中 新 建 一 个 名 称 为 AcDatebase 的 目录 ,然后 利用 Access 2003 
数据 库 软 件 创建 一 个 名 称 为 dbl 的 客户 信息 数据 库 ， 并 将 其 保存 在 新 建 的 目录 中 。 

(1) 打开 服务 器 主 目 录 ， 然 后 选择 “文件 ”| “新建 ”| “文件 夹 ”命令 ， 创 建 一 个 名 称 
为 AcDatebase 的 子 目 录 。 

(2) 选择 “开始 ” |“ 所 有 程序 ”| Microsoft Office | Access 2003 命令 ,启动 Access 2003 
数据 库 ， 然 后 选择 “文件 ” |“ 新 建 ”命令 ， 打 开 “ 新 建文 件 ” 对 话 框 ， 如 图 9-2 所 示 。 

(3) 在 “新 建文 件 ” 对 话 框 中 单 击 “ 空 数 据 库 ” 选 项 ， 在 打开 的 “文件 新 建 数据 库 ” 
对 话 框 的 “保存 位 置 ” 下 拉 列 表 框 中 选择 步骤 (1) 所 创建 的 AcDatebase 目录 ， 在 “文件 名 ” 
文本 框 中 输入 db1( 如 图 9-3 所 示 )， 然 后 单 击 “ 创 建 ”按钮 。 

CEE on| 


9-2 “新 建文 件 ” 对 话 框 图 9-3 “文件 新 建 数据 库 ” 对 话 框 
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(4) 在 打开 的 Access 2003 的 工作 界面 的 工作 区 域 中 选择 “对 象 ”列表 框 中 的 “ 表 ” 选 
项 ， 然 后 在 对 话 框 右 侧 的 选项 区 域 中 双击 “使 用 设计 器 创建 表 ” 选 项 (如 图 9-4 所 示 ) 打 开 
数据 表 “ 表 1” 的 设计 检视 窗口 。 

(5) 设置 数据 表 中 字段 的 结构 。 首先 在 “ 表 1” 的 设计 检视 窗口 的 “字段 名 称 ” 列 的 第 
一 个 单元 格 中 输入 C-Id， 然 后 在 其 后 的 “数据 类 型 ”下 拉 列 表 中 选择 “自动 编号 ”选项 (如 
图 9-5 所 示 )。 最 后 ， 在 “说 明 ” 列 的 第 一 个 单元 格 中 输入 对 表格 字段 的 描述 文本 。 


cn 
ND ma ED AA IRD EO smn» 
FEF EEFETET EPI A 


Er Er 器 二 


图 9-4 设置 数据 库 图 9-5 设置 数据 表 字 段 结构 


(6) 右 击 C-Id 字段， 在 弹出 的 菜单 中 选择 “主键 ”命令 ， 为 C-Id 字段 前 添加 日 j 标 志 ， 
将 该 字段 设置 为 主键 ， 如 图 9-6 所 示 。 

(7) 在 “ 表 1” 的 设计 检视 窗口 第 2 行 的 “字段 名 称 ” 中 输入 C-Name， 在 “数据 类 型 > 
下 拉 列 表 中 选择 “文本 ”， 在 “说 明 ” 中 输入 对 表格 字段 的 描述 文本 。 

(8) 选中 C-Name 字段 ， 在 下 面 的 “字段 属性 ”选项 区 域 中 选择 “常规 ”选项 卡 。 然 
后 在 “字段 大 小 ”文本 框 中 输入 50， 在 “ 必 填 字段 ”下 拉 列表 中 选择 “ 否 ” 选 项 ， 在 “ 允 
许 空 字符 串 ” 下 拉 列 表 中 选择 “是 ”选项 ， 如 图 9-7 所 示 。 
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图 9 9-6 ”设置 数据 表 主键 9-7 ”设置 C-Name 字段 参数 


(9) 重复 步骤 (6) 和 步骤 (7) 的 操作 ， 使 用 相同 的 方法 将 表 9-1 所 示 的 内 容 输入 到 “ 表 1” 
的 设计 检视 窗口 中 。 
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表 9-1 创建 “ 表 1” 字 段 参照 表 


注 
主键 


(10) 完成 字段 录入 工作 后 “ 表 1” 的 设计 检视 窗口 ， 如 图 9-8 所 示 。 选择 “文件 ”|“ 保 
存 ” 命令 , 并 在 打开 的 “另存 为 ” 对 话 框 中 单 击 “ 确 定 ”按钮 将 数据 表 保存 .这 时 ， 在 Access 
的 工作 区 域 中 将 会 看 到 数据 表 “ 表 1” 已 经 被 自动 添加 在 列表 框 中 ， 如 图 9-9 所 示 。 
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图 9-8 完成 字段 创建 后 的 效果 图 9-9 ”完成 数据 库 的 创建 


注意 : 

Access 数据 库 操作 非常 简单 ,该 数据 库 所 创建 的 库 文 件 是 一 种 扩展 名 为 mbd 的 特殊 文 
件 ， 如 果 用 户 的 计算 机 上 已 经 安装 了 Access 数据 库 软件 ， 双 击 这 种 文件 就 可 以 直接 打开 
Access 数据 库 编辑 窗口 。 


9.1.2 Access 数据 库 的 基础 知识 


本 节 将 以 【 例 9-1】 创建 的 数据 库 dbl 为 基础 , 介绍 组 成 Access 数据 库 各 个 部 分 的 结 
构 及 功能 ， 包 括 数据 库 结 构 、 数 据 表 结构 、 数 据 内 容 和 字段 索引 等 。 

1. 数据 库 结 构 

Access 数据 库 通 常 包含 多 个 数据 表 。 以 【 例 9-1】 创 建 的 数据 库 为 例 ， 用 户 可 以 按照 
同样 的 操作 步骤 ， 以 这 个 范例 为 基础 ， 在 数据 库 dbl 中 创建 “ 表 2”、“ 表 3”、“ 表 4?” 
或 者 任意 名 称 的 数据 表 ( 如 图 9-10 所 示 )， 但 这 些 表 都 属于 db1。 
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注意 : 
关系 型 数据 库 通常 包含 多 个 内 容 不 同 的 数据 表 ， 并 通过 数据 表 之 间 的 特定 字段 定义 其 
各 自 之 间 的 关系 。 用 户 通过 这 种 关系 ， 可 以 在 不 同 数 据 表 中 取得 相关 的 数据 内 容 。 
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图 9- 数据 库 的 结构 


2. 数据 表 结构 

在 数据 表 中 包含 2 个 重要 的 属性 : 字段 名 称 和 数据 类 型 。 字 段 名 的 作用 是 在 数据 表 中 
识别 字段 ， 而 数据 类 型 则 是 该 字段 所 能 存储 的 数据 类 型 ， 例 如 文字 、 日 期 时 间 等 。 
用 户 可 以 在 数据 库 工 作 区 中 选中 某 个 数据 表 ， 然 后 单 击 “ 设 计 ” 按 钮 ! ， 打 开 表 的 设 
计 检 视窗 口 ， 对 数据 表 的 属性 进行 调整 。 

图 9-11 所 示 的 内 容 就 是 【 例 9-1】 所 创建 的 数据 表 “ 表 1” 的 设计 检视 窗口 。 其 中 被 
选中 的 部 分 代表 数据 表 “ 表 1” 中 “字段 名 称 ” 为 C-Name 的 字段 ， 而 窗口 下 面 “ 常 规 ” 
选项 卡 中 的 设置 则 包含 了 该 字段 的 各 种 特性 设置 ， 例 如 在 “字段 大 小 ”文本 框 中 设置 字段 
所 能 存储 的 数据 长 度 ， 在“ 必 填 字段 ”下 拉 列 表 框 中 设置 字段 是 否 为 必 有 值 ; 在 “允许 空 
字符 串 ” 下 拉 列 表 框 中 设置 字段 内 容 是 否 可 为 空 字符 串 等 。 
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图 9-11 数据 表 “ 表 1” 的 设计 检视 窗口 


另外 ， 在 数据 表 的 设计 检视 窗口 中 ， 单 击 “ 数 据 类 型 ” 列 单 元 格 中 的 下 拉 列 表 按 钮 ， 
在 弹出 的 下 拉 列 表 中 还 可 以 为 字段 设置 数据 类 型 限制 .以 图 9-11 所 示 的 C-Name 字段 为 例 ， 
它 的 数据 类 型 为 “文本 ”， 如 果 用 户 需要 修改 这 项 设置 ， 可 以 单 击 该 字段 的 “数据 类 型 ” 
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下 拉 列 表 按 钮 ， 然 后 在 弹出 的 下 拉 列 表 中 选择 所 需 的 选项 即 可 。 
3. 数据 内 容 


数据 库 中 的 数据 内 容 存储 于 数据 表 中 ， 用 户 在 数据 库 工 作 区 中 双击 数据 表 名 称 即 可 打 
开 数 据 表 。 从 外 观 上 看 ， 数 据 表 类 似 Excel 表格 ， 每 一 行 代表 一 个 记录 ， 每 一 列 代 表 一 个 
字段 ， 并 且 每 个 字段 都 有 其 特定 的 字段 名 称 和 字段 数据 类 型 。 图 9-12 所 示 的 内 容 ， 就 是 在 
对 【 例 9-1】 创 建 的 数据 表 “ 表 1” 完 成 内 容 填充 后 的 客户 数据 的 数据 表 。 
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图 9-12 数据 表 “ 表 1” 中 的 数据 内 容 


注意 : 

单 击 数据 表 中 的 某 项 记录 ， 就 可 以 针对 该 记录 进行 修改 ， 或 者 直接 按 下 Delete 键 将 其 
删除 。 

4. 字段 索引 

索引 是 一 种 字段 标识 ， 通 常 一 个 数据 表 字 段 在 设计 完成 后 ， 还 需要 针对 其 中 的 字段 设 
置 索引 。 索 引 的 主要 功能 有 两 种 ， 增 加 数据 的 搜索 速度 和 设置 数据 表 关 联 ， 数 据 表 中 的 索 
引 的 作用 就 如 同 书签 一 样 , 数据库 可 以 根据 索引 快速 地 查找 到 存储 于 数据 表 中 的 特定 数据 。 
而 数据 表 之 间 的 索引 字段 关联 则 可 以 串联 不 同 数据 表 中 的 数据 内 容 。 

索引 本 身 根 据 其 功用 可 以 分 为 两 种 : 主键 ( 主 索引 ) 和 一 般 性 索引 。 一 个 数据 表 中 只 能 
有 一 个 字段 被 设置 为 主键 ， 而 被 设置 为 主键 的 字段 在 整个 数据 表 中 的 数据 内 容 是 唯一 值 ， 
不 允许 被 重复 。 例 如 在 【 例 9-1】 的 步骤 (5) 将 C-Id 字段 设置 为 主键 ， 该 字段 作为 数据 表 的 客 
户 编号 字段 ， 当 用 户 在 数据 表 中 输入 数据 内 容 时 将 不 会 有 重复 的 客户 编号 存在 ， 这 样 数据 库 
系统 就 可 以 根据 这 个 字段 中 的 编号 取得 特定 客户 的 数据 内 容 。 

-个 数据 库 中 可 以 有 多 个 字段 被 设置 为 一 般 性 索引 。 这 种 索引 的 功用 除了 与 其 他 数据 表 
的 主键 字段 关联 以 外 ， 还 可 以 加 速 数 据 库 的 搜索 速度 。 下 面 介绍 在 【 例 9-1】 创 建 的 数据 库 
dbl 中 为 数据 表 “ 表 1” 的 C-Id 字段 设置 一 般 性 索引 的 操作 步骤 。 

【 例 9-2】 以 【 例 9-1】 所 创建 的 数据 库 dbl 中 的 数据 表 “ 表 1” 为 基础 ， 设 置 该 数据 表 
中 字段 C-Id 与 字段 C-Tel 之 间 的 一 般 性 索引 。 

(1) 在 Access 2003 中 打开 数据 库 db1， 然 后 选中 数据 表 “ 表 1”， 并 单 击 “ 设 计 ” 按 
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钮 ， 打 开设 计 检视 窗口 。 

(2) 在 数据 表 “ 表 1” 的 设计 检视 窗口 中 选中 字段 C-Id， 然 后 在 工具 栏 中 单 击 “ 索 引 ” 
按钮 (如 图 9-13 所 示 )， 打 开 “ 索 引 : 表 1” 对 话 框 。 

(3) 在 “索引 : 表 1” 对 话 框 中 的 “索引 名 称 ” 文 本 框 中 输入 C-Id， 然 后 单 击 该 文本 框 
后 的 “字段 名 称 ” 下 拉 列 表 按 钮 ， 在 弹出 的 下 拉 列 表 中 选择 C-Tel 选项 (如 图 9-14 所 示 )。 


ZNO MND NW BAD IAYD ENP Sho 
FOP EYEPETEEEEN PEE 


EF EE | 
im er eT | T 时 


WM RE 加 三 


图 9-13 设置 索引 图 9-14 “索引 : 表 1” 对 话 框 


(4) 完成 设置 后 关闭 “索引 : 表 1” 对 话 框 ， 在 数据 表 “ 表 1” 的 C-Tel 字段 里 成 功 新 
增 一 个 名 称 为 C-Id 的 字段 索引 。 


9.1.3 SQL 简介 


SQL 是 结构 化 查询 语言 (Structured Query Language) 的 缩写 ， 它 包括 查询 、 定 义 、 操 纵 
和 控制 4 个 部 分 ， 是 一 种 功能 齐全 的 数据 库 语 言 。 

数据 查询 是 指 按 要 求 查找 出 满足 条 件 的 记录 的 操作 。 数 据 定义 是 指 对 关系 模式 一 级 的 
定义 。 数 据 操纵 是 指 对 关系 中 的 具体 数据 进行 增 、 删 、 改 和 更 新 等 操作 。 数 据 控制 是 指 对 
数据 访问 权限 的 授予 或 撤销 。 

SQL 具有 语言 简洁 、 方 便 实 用 、 功 能 齐全 等 优点 。 目 前 ， 大 多 数 数 据 库 管 理 系统 都 支 
持 SQL 或 提供 SQL 接口 。 

1. SQL 的 构成 


SQL 是 由 命令 、 子 句 和 运算 符 等 元 素 所 构成 的 ， 这 些 元 素 结合 起 来 组 成 用 于 创建 、 更 
新 和 操作 数据 库 的 语句 .SQL 语言 常 分 为 3 类 :数据 操纵 语言 DML、 数 据 定义 语言 DDL、 
数据 库 控制 语言 DCL。 

数据 定义 语言 DDL 完成 定义 数据 库 的 结构 ， 包 括 数据 库 本 身 、 数 据 表 、 目 录 、 视 图 
等 数据 库 元 素 。 常 用 DDL 语句 及 其 相关 说 明 ， 如 表 9-2 所 示 。 
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表 9-2 常用 DDL 语句 及 其 相关 说 明 


常用 DDL 语句 说 了 明 
CREATE TABLE 创建 表 
CREATE INDEX 创建 索引 
CREATE VIEW 创建 视图 
ALTER TABLE 增加 表 列 ， 重 定义 表 列 ， 更 改 存储 分 配 
DROP TABLE 删除 表 
DROP INDEX 删除 索引 


数据 操纵 语言 DML 完成 在 数据 库 中 确定 、 修 改 、 添 加 、 删 除 某 一 数据 值 的 任务 。 常 
用 DML 语句 及 其 相关 说 明 ， 如 表 9-3 所 示 。 


表 9-3 常用 DML 语句 及 其 相关 说 明 


常用 DML 语句 说 有明 
SELCECT | 在 数据 库 中 查找 满足 指定 条 件 的 记录 
INSERT | 增加 数据 行 到 表 
DELETE 从 表 中 删除 数据 行 
UPDATE 更 改 表 中 数据 


数据 库 控制 语言 DCL 用 来 授予 或 回收 访问 数据 库 的 某 种 特权 ,并 控制 数据 库 操纵 事务 
发 生 的 时 间 及 效果 ， 对 数据 库 实行 监视 等 。 常 用 DCL 语句 及 其 相关 说 明 ， 如 表 9-4 所 示 。 


表 9-4 常用 DCL 语句 及 其 相关 说 明 


DCL 语句 说 有明 

GRANT 将 权限 或 角色 授予 用 户 或 其 他 角色 

REVODE 回收 用 户 权 限 

ROLL 回 深 。 这 是 一 个 把 信息 恢复 到 用 户 使 pdate、insert、delete 前 最 后 提交 的 状态 
COMMIT 提交 。 在 完成 数据 库 的 插入 、 删 除 和 修改 操作 时 ， 只 有 当 事 务 提交 到 数据 库 才 算 完成 


个 SQL 语句 是 一 个 由 从 句 组 成 的 命令 ， 从 句 指定 了 要 执行 的 操作 ， 数 据 源 以 及 任何 完成 
操作 所 需 的 结构 。 每 个 从 句 必须 起 始 于 一 个 关键 字 。 最 常用 的 从 名 及 其 相关 说 明 , 如 表 9-5 所 示 。 


表 9-5 常用 DCL 语句 及 其 相关 说 明 


FE 说 了 明 
FROM 指定 要 对 其 进行 操作 的 数据 源 
WHERE 对 操作 设 定 一 个 或 多 个 条 件 
ORDERBY 对 查询 结果 进行 排序 
GROUP BY 对 查询 结果 进行 分 组 


HAVING 指定 分 组 的 条 件 
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SQL 运算 符 可 分 为 下 面 几 种 类 别 。 


e 比较 运算 符 ( 大 小 比较 ): >、>=、=、<、<=、 二 、!>、!<。 

e 范围 运算 符 ( 表 达 式 值 是 否 在 指定 的 范围 ): BETWEEN…AND…、NOT BETWEEN… 
AND…。 

e 列表 运算 符 (判断 表达 式 是 否 为 列表 中 的 指定 项 ): IN (项 1, 项 2……)、NOT IN (项 
1, 项 De ) 


e 模式 匹配 符 (判断 值 是 否 与 指定 的 字符 通 配 格式 相符 ): LIKE、NOT LIKE。 

e 空 值 判断 符 (判断 表达 式 是 否 为 空 ): IS NULL、NOT IS NULL。 

e 逻辑 运算 符 ( 用 于 多 条 件 的 逻辑 连接 ): NOT、AND、OR。 

SQL 还 有 一 些 用 来 计算 的 函数 , 即 合计 函数 .例如 ,用 AVG 函数 计算 平均 值 .用 COUNT 
函数 返回 记录 数 、 用 SUM 函数 计算 总 和 、 用 MAX 函数 计算 最 大 值 等 。 


2. SELECT 语句 


SELECT 语句 的 功能 是 从 现 有 的 数据 库 中 检索 数据 ， 将 满足 一 定 约束 条 件 的 一 个 或 多 
个 表 中 的 字段 从 数据 库 中 挑选 出 来 ， 并 按 一 定 的 分 组 和 排序 方法 显示 出 来 。 
简单 的 SQL 查询 只 包括 选择 列表 、FROM 子 句 和 WHERE 子 句 。 它 们 分 别 说 明 所 查 
询 列 、 查 询 的 表 或 视图 以 及 搜索 条 件 等 。 例如 ， 下 面 的 语句 查询 Customers 表 中 名 称 为 “ 创 
新 书店 ”的 CustID 字段 和 CustName 字段 。 
SELECT CustID. CustName 


FROM Customers 
WHERE name=' 创 新 书店 ' 


选择 列表 (select_lisb 指 出 所 查询 列 ， 它 可 以 是 一 组 列 名 列表 、 星 号 、 表 达 式 、 变 量 ( 包 
括 局 部 变量 和 全 局 变量 ) 等 构成 。 星 号 代表 所 有 的 记录 和 字段 ， 例 如 ， 下 面 语 句 将 显示 
Customers 表 中 所 有 列 的 数据 : 


SELECT* 
FROM Customers 


SELECT 语句 中 使 用 ALL 或 DISTINCT 选 项 来 显示 表 中 符合 条 件 的 所 有 行 或 删除 其 中 
重复 的 数据 行 ， 默 认为 ALL。 使 用 DISTINCT 选项 时 ， 对 于 所 有 重复 的 数据 行 在 SELECT 
返回 的 结果 集合 中 只 保留 一 行 。 

在 选择 列表 中 ， 可 重新 指定 列 标题 。 如 果 指 定 的 列 标题 不 是 标准 的 标识 符 格式 时 ， 应 
使 用 引号 定 界 符 ， 例 如 ， 下 面 语句 使 用 汉字 显示 列 标题 : 


SELECT 编号 = CustID. 姓 名 = CustName 
FROM Customers 
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3. FROM 子 句 
FROM 子 句 指定 SELECT 语句 查询 及 与 查询 相关 的 表 或 视图 。 在 FROM 子 句 中 最 多 
可 指定 256 个 表 或 视图 ， 它 们 之 间 用 去 号 分 隔 。 
FROM 子 句 同时 指定 多 个 表 或 视图 时 ， 如 果 选 择 列表 中 存在 同名 列 ， 这 时 应 使 用 对 象 
名 限定 这 些 列 所 属 的 表 或 视图 。 例如， 在 Customers 和 Orders 表 中 同时 存在 CustName 列 ， 
在 查询 两 个 表 中 的 CustName 时 应 使 用 下 面 语句 格式 加 以 限定 : 
SELECT CustID.Address. Orders .price 
FROM Customers. Orders 
WHERE Customers.CustName =Orders. CustName 
在 FROM 子 名 中 可 用 以 下 两 种 格式 为 表 或 视图 指定 别名 : 
表 名 as 别名 
表 名 别名 
上 面 语句 可 用 表 的 别名 格式 表示 为 : 
SELECT CustID,Address. Orders .price 


FROM Customers as 客户 资料 , Orders 订单 资料 
WHERE 客户 资料 .CustName = 订单 资料 . CustName 


注意 : 

SELECT 语句 不 仅 能 从 表 或 视图 中 检索 数据 ， 还 能 够 从 其 他 查询 语句 所 返回 的 结果 集 
合 中 查询 数据 。 

4. WHERE 子 句 

WHERE 子 句 用 于 设置 查询 条 件 ， 过 滤 掉 表 中 不 需要 的 数据 行 。 它 可 以 包含 多 个 表达 
式 ， 表 达 式 之 间 要 用 AND 和 OR 等 运算 符 连接 起 来 。 

例如 ， 下 面 语句 将 在 订单 资料 表 中 查询 交易 金额 为 100~300 的 订单 明细 : 

SELECT* 


FROM Orders 
WHERE price BETWEEN 100 AND 300 


5. ORDER BY 子 句 
使 用 ORDER BY 子 句 对 查询 返回 的 结果 进行 排序 。ORDER BY 子 句 的 语法 格式 为 : 
ORDER BY {column name [ASCIDESC]} [....n] 


其 中 ，ASC 为 升序 ，DESC 为 降序 。ORDER BY 不 能 按 ntext、text 和 image 数据 类 型 
进行 排序 。 

ORDER BY 子 句 中 还 可 包含 多 个 字段 ， 这 样 记录 先 按 第 一 个 字段 排序 ， 然 后 对 值 相等 
的 记录 再 按 第 二 个 字段 排序 。 另 外 ， 还 可 以 在 ORDER BY 子 句 中 加 入 表达 式 ， 根 据 计算 
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结果 来 进行 排序 。 例 如 ， 下 面 语句 将 在 订单 资料 表 中 先 按 交易 排序 : 
SELECT * 
FROM Orders 
ORDER BY price desc.CustID ASC 
6. SELECT…INTO 语句 
SELECT…INTO 语句 用 来 从 查询 结果 中 建立 新 表 。 例 如 : 
SELECT CustID. CustName INTO # Customers2 
FROM Customers 
7. DELETE 语句 
DELETE 语句 的 功能 是 删除 FROM 子 句 列 出 的 、 满 足 WHERE 子 句 条 件 的 一 个 或 多 个 
表 中 的 记录 。 例 如 ， 可 以 用 下 面 的 语句 从 Customers 表 中 删除 姓 “ 刘 ”的 记录 : 


DELETE FROM Customers 
WHERE CustName LIKE ' 刘 %' 


8. INSERT INTO 语句 
INSERT INTO 语句 用 于 添加 一 个 或 多 个 记录 到 表 中 。 例 如 ， 以 下 语句 往 Customers 表 
中 添加 一 条 新 的 记录 : 


INSERT INTO Customers 
(CustID, CustName,Address,Phone) 
VALUES (KT015', 陈 永超 ,东方 红 大 道 11 号 "64512458) 


9. UPDATE 语句 
UPDATE 语句 用 于 按 某 个 条 件 来 更 新 特定 表 中 的 字段 值 。 例如， 以 下 语句 将 
OrderDetails 表 中 所 有 单价 改 为 120: 


UPDATE OrderDetails SET price=120 


9.1.4 ODBE 简介 


开放 数据 库 互 连 (Open DataDase Connectivity，ODBC) 是 Microsoft 开发 的 一 套 读 取 数 
据 库 的 解决 方案 , 它 将 所 有 对 数据 库 的 底层 操作 全 部 隐藏 在 ODBC 的 驱动 程序 内 核 里 。 对 
于 用 户 来 说 ， 只 要 构建 了 一 个 指向 数据 库 的 连接 ， 就 可 以 采用 统一 的 应 用 程序 编程 接口 
(Application Program Interface，APD 实 现 对 数据 库 的 读 写 ， 或 用 相同 的 代码 访问 不 同 格式 
的 数据 库 。 
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1. ODBC 驱动 


使 用 ODBC 简化 了 对 数据 库 的 访问 ， 也 为 程序 的 跨 平台 开发 和 移植 提供 了 极 大 的 方 
便 。ODBC 可 对 大 多 数 类 型 数据 库 提供 支持 ， 包 括 dBase、Informix、Access、SQL Server 
和 Oracle 等 ， 还 可 对 一 些 其 他 类 的 数据 库 文件 提供 支持 ， 如 文本 、Excel 电子 表格 等 。 对 于 
- 些 特殊 的 数据 库 ， 只 要 安装 数据 库 厂商 提供 的 ODBC 程序 ， 也 就 能 够 在 程序 中 直接 对 数 
据 库 进行 操作 。 
ODBC 由 应 用 程序 、 驱 动 程序 管理 器 、 驱 动 程序 和 数据 源 等 部 分 组 成 。 应 用 程序 通过 
ODBC 接口 访问 不 同 数据 源 中 的 数据 ， 每 个 不 同 的 数据 源 类 型 由 一 个 驱动 程序 支持 。 驱 动 
程序 管理 器 为 应 用 程序 装 入 合适 的 驱动 程序 ， 如 图 9-15 所 示 。 


图 9-15 ODBC 的 结构 


ASP 必须 建立 与 数据 库 之 间 的 联系 才能 使 用 数据 库 中 的 数据 。 要 在 ASP 中 使 用 ADO 
对 象 来 操作 数据 库 ， 首 先 要 创建 一 个 指向 该 数据 库 的 ODBC 连接 。 在 Windows 系统 中 ， 
ODBC 的 连接 主要 通过 ODBC 数据 源 管理 器 来 完成 。 

2. DSN 数据 源 


数据 库 驱 动 程序 使 用 数据 源 (DSN: Data Source Name) 定 位 和 标识 特定 的 ODBC 兼容 数 
据 库 ， 将 信息 从 Web 应 用 程序 传递 给 数据 库 。DSN 包含 数据 库 配 置 、 用 户 安全 性 和 定位 
信息 ， 且 可 以 获取 Windows 注册 表 项 或 以 文本 文件 格式 存储 的 表格 。 

构建 ODBC 连接 就 是 创建 同 数据 源 的 连接 ， 也 就 是 创建 DSN。 一 个 DSN 就 是 对 数据 
库 的 一 个 命名 连接 。 一 旦 创建 了 一 个 指向 数据 库 的 ODBC 连接 ， 同 该 数据 库 连 接 的 有 关 信 
息 就 被 保存 在 DSN 中 。 在 程序 中 操作 数据 库 也 必须 通过 DSN 来 进行 。 

DSN 分 为 用 户 、 系 统 和 文件 3 种 类 型 。 用户 DSN 和 系统 DSN 将 信息 存储 在 Windows 
注册 表 中 ， 它 位 于 注册 表 中 的 如 下 位 置 : 

HKEY LOCAL MACHINE\SOFTWARE\ODBC\ODBC.INI 


用 户 DSN 只 被 用 户 直接 使 用 ， 它 只 能 用 于 当前 机 器 中 ，ASP 不 能 使 用 它 。 系 统 DSN 
允许 所 有 用 户 登录 到 特定 服务 器 上 去 访问 数据 库 ， 任 何 具有 权限 的 用 户 都 可 以 访问 系统 
DSN。 在 Web 应 用 程序 中 访问 数据 库 时 ， 通 常 都 是 建立 系统 DSN。 
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文件 DSN 将 信息 存储 在 后 级 为 .dsn 的 文本 文件 中 , 如 果 将 此 文件 放 在 网 络 的 共享 目录 
中 ， 那 么 可 以 被 网 络 中 的 任何 一 台 工作 站 访问 到 。 

文件 DSN 的 优点 在 于 方便 移动 ， 因 为 DSN 信息 保存 在 独立 的 文件 中 ， 如 果 希 望 将 整 
个 Web 应 用 程序 和 数据 库 移动 到 其 他 计算 机 中 ， 只 需要 连同 生成 的 DSN 文件 一 起 移动 即 
可 。 而 系统 DSN 因为 信息 是 保存 在 注册 表 中 ， 所 以 移动 起 来 就 不 那么 方便 。 

系统 DSN 的 优点 在 于 方便 修改 ， 只 需要 简单 地 修改 Windows 的 注册 表 即 可 。 而 对 于 
使 用 文件 DSN 的 用 户 ， 则 必须 每 次 修改 Globalasa 文件 。 另 外 ， 如 果 需 要 在 计算 机 上 许多 
不 同 的 应 用 程序 中 使 用 同一 个 DSN， 那 么 使 用 系统 DSN 更 为 方便 。 


【 例 9-3】 在 Windows XP 系统 中 以 【 例 9-1】 创建 的 数据 库 为 基础 ， 创 建 一 个 名 称 为 
netdsn 的 系统 DSN。 

(1) 打开 “控制 面板 ”中 的 “管理 工具 ”， 在 数据 源 (ODBC) 项 目 上 双击 ， 如 图 9-16 所 示 。 

(2) 系统 弹出 “ODBC 数据 源 管理 器 ”对 话 框 , 单 击 “ 系 统 DSN” 标签 打开 “系统 DSN” 
选项 卡 ， 如 图 9-17 所 示 。 
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图 9-16 启动 数据 源 (ODBC) 管 理 器 图 9-17 “系统 DSN” 选 项 卡 


(3) 单 击 “ 添 加 ”按钮 ， 系 统 弹出 “创建 新 数据 源 ” 对 话 框 ,选择 Microsoft Access 
Driver(*.mdb) 选 项 ， 然 后 单 击 “ 完 成 ”按钮 ， 如 图 9-18 所 示 。 

(4) 在 系统 打开 的 “ODBC Microsoft Access 安装 ”对 话 框 中 输入 系统 DSN 的 名 称 
netdsn 后 ， 单 击 “ 选 择 ” 按 钮 ， 如 图 9-19 所 示 。 
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9-18 “创建 新 数据 源 ” 对 话 框 图 9-19 “ODBC Microsoft Access 安装 ”对 话 框 
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(5) 在 系统 打开 的 “选择 数据 库 ” 对 话 框 中 选中 【 例 9-1】 创 建 的 数据 库 dbl.msd 后 (如 
图 9-20 所 示 )， 单 击 “ 确 定 ” 按 钮 返回 “ODBC Microsoft Access 安装 ”对 话 框 。 

(6) 单 击 “ODBC Microsoft Access 安装 ”对 话 框 中 的 “确定 ”按钮 ， 然 后 在 如 图 9-21 
所 示 的 “ODBC 数据 源 管理 器 ”对 话 框 中 单 击 “ 确 定 ” 按 钮 ， 完 成 系统 DSN 的 安装 。 


IEEEEEEB 7 
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图 9-20 选中 数据 库 文件 图 9-21 完成 系统 DSN 的 安装 
9.1.5 ”OLE DB 简介 


OLE DB 是 一 种 提供 统一 数据 访问 接口 的 技术 标准 。 可 以 访问 的 数据 包括 标准 的 关系 
型 数据 库 中 的 数据 , 还 包括 邮件 数据 、Web 上 的 文本 或 图 形 、 目录 服务 (Directory Services)， 
以 及 主机 数据 库 (如 IMS 和 DB2)、 服 务 器 数据 库 (如 Oracle 和 SQL ServeD 和 桌面 数据 库 (如 
Microsoft Access)。 

OLE DB 标准 的 核心 内 容 就 是 要 求 各 种 各 样 的 数据 存储 (Data Store) 都 提供 一 种 相同 的 访 
问 接口 。 这 种 接口 封装 了 各 种 数据 系统 的 访问 操作 ， 使 数据 的 使 用 者 (应 用 程序 ) 可 以 使 用 同样 
的 方法 访问 各 种 数据 ， 而 不 用 考虑 数据 的 具体 存储 地 点 、 格 式 或 类 型 。OLE DB 还 提供 了 一 
组 标准 的 服务 组 件 ， 用 于 提供 查询 、 缓 存 、 数 据 更 新 、 事 务 处 理 等 操作 。 因 此 ， 数 据 提供 方 只 
需要 实现 一 些 简单 的 数据 操作 ， 在 使 用 方 就 可 以 获得 全 部 的 数据 控制 能 力 。 

OLE DB 将 传统 的 数据 库 系 统 划 分 为 多 个 逻辑 组 件 ， 这 些 组 件 之 间 相对 独立 又 相互 通 

信 。 这 种 组 件 模型 中 的 各 个 部 分 被 冠 以 不 同 的 名 称 。 

e 数据 提供 者 (Data Provider): 提供 数据 存储 的 软件 组 件 ， 小 到 普通 的 文本 文件 、 大 
到 主机 上 的 复杂 数据 库 ， 或 者 电子 邮件 存储 。 

e 数据 服务 提供 者 (Data Service Provider): 位 于 数据 提供 者 之 上 、 从 旧 的 数据 库 管理 
系统 中 分 离 出 来 、 独 立 运行 的 功能 组 件 ， 例 如 查询 处 理 器 和 游标 引擎 (Cursor 
Engine), 这 些 组 件 使 数据 提供 者 提供 的 数据 以 表 状 数据 (Tabular Data) 的 形式 向 外 表 
示 ( 不 管 真实 的 物理 数据 是 如 何 组 织 和 存储 的 )， 并 实现 数据 的 查询 和 修改 功能 。 

e 业务 组 件 (Business Component): 利用 数据 服务 提供 者 、 专 门 完成 某 种 特定 业务 信息 
处 理 、 可 以 重用 的 功能 组 件 。 分 布 式 数据 库 应 用 系统 中 的 中 间 层 (Middle-Tier) 就 是 
这 种 组 件 的 典型 例子 。 
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e 数据 使 用 者 (Data Consumer): 任何 需要 访问 数据 的 系统 程序 或 应 用 程序 ， 除 了 典型 
的 数据 库 应 用 程序 之 外 ， 还 包括 需要 访问 各 种 数据 源 的 开发 工具 或 语言 。 

OLE DB 和 ODBC 标准 都 是 为 了 提供 统一 的 访问 数据 接口 ,ODBC 标准 的 对 象 是 基于 
SQL 的 数据 源 (SQL-Based Data Source)， 而 OLE DB 的 对 象 则 是 范围 更 为 广泛 的 任何 数据 
存储 。 所以， 符合 ODBC 标准 的 数据 源 是 符合 OLE DB 标准 的 数据 存储 的 子 集 ， 同 时 还 提 
供 有 相应 的 OLE DB 服务 程序 (Service Provider)。 

OLE DB 标准 的 具体 实现 是 一 组 API 函数 ,就 像 ODBC 标准 中 的 API 函数 一 样 , 不 同 
的 是 ，OLE DB 中 的 API 函数 是 符合 COM 标准 、 基 于 对 象 的。 使 用 OLE DB 中 的 API 函 
数 ， 可 以 编写 能 够 访问 符合 OLE DB 标准 的 任何 数据 源 的 应 用 程序 ， 也 可 以 编写 针对 某 种 
特定 数据 存储 的 查询 处 理 程序 (Query ProcessoD 和 游标 引擎 (Cursor Engine)， 因 此 OLE DB 
标准 实际 上 是 规定 了 数据 使 用 者 和 提供 者 之 间 的 一 种 应 用 层 的 协议 (Application-Level 
Protocol)。 


9.1.6 ADO 对 象 模 型 


ADO 是 应 用 层 的 编程 接口 , 它 通 过 OLE DB 提供 的 接口 访问 数据 , 这 样 各 种 编程 语言 
都 能 够 编写 符合 OLE DB 标准 的 应 用 程序 。 

ADO 封装 了 OLE DB 中 最 常用 的 一 些 特性 ，ADO 可 以 在 Visual Basic 或 Visual C++ 
中 使 用 ， 也 可 在 服务 器 端 脚本 中 使 用 。 在 使 用 ADO 时 ，ASP 应 用 程序 和 底层 数据 库 间 的 
关系 ， 如 图 9-22 所 示 。 


= -数据 提供 者 


= -数据 提供 者 


图 9-22 ASP 应 用 程序 和 底层 数据 库 间 的 关系 


从 图 9-22 中 可 以 看 出 ， 应 用 程序 既 可 以 通过 ADO 访问 数据 也 可 以 直接 通过 OLE DB 
访问 数据 ， 而 ADO 则 通过 OLE DB 访问 底层 数据 。 
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OLE DB 分 成 两 部 分 : 一 部 分 由 数据 提供 者 实现 ， 包 括 一 些 基 本 功能 ， 如 获取 数据 、 
修改 数据 、 添 加 数据 项 等 ， 另 一 部 分 由 系统 提供 ， 包 括 一 些 高 级 服务 ， 如 游标 功能 、 分 布 
式 查询 等 。 这 样 的 层次 结构 既 为 数据 使 用 者 即 应 用 程序 提供 了 多 种 选择 方案 ， 又 为 数据 提 
供 方 简化 了 服务 功能 的 实现 手段 , 它 只 需要 按 OLE DB 规范 编写 一 个 COM 组 件 程序 即 可 ， 
使 得 第 三 方 发 布 数 据 更 为 简便 。 而 在 应 用 程序 方 可 以 得 到 全 面 的 功能 服务 ， 这 充分 体现 了 
OLE DB 两 层 结构 的 优势 。 


9.1.7 ADO 对 象 简介 


ADO 实际 上 是 OLE DB 的 应 用 层 接口 ,这 种 结构 也 为 一 致 的 数据 访问 接口 提供 了 很 好 
的 扩展 性 , 而 不 再 局 限于 特定 的 数据 源 。 因此 , ADO 可 以 处 理 各 种 OLE DB 支持 的 数据 源 。 
ADO 本 身 由 多 个 对 象 所 组 成 , 这 些 对 象 分 别 负责 提供 各 种 数据 库 操作 行为 , 大致 上 可 以 分 
为 连接 、 修 改 和 查询 3 个 部 分 ， 如 图 9-23 所 示 。 


图 9-23 ADO 对 象 模型 


在 ADO 模型 中 ， 主 体 对 象 只 有 Connection、Command 和 Recordset 3 个 ， 一 个 典型 的 
ADO 应 用 使 用 Connection 对 象 建立 与 数据 源 的 连接 ,然后 用 一 个 Command 对 象 给 出 对 数 
据 库 操作 的 命令 ， 比 如 查询 或 更 新 数据 等 ， 而 Recordset 用 于 对 结果 集 数据 进行 维护 或 浏 
览 等 操作 。 

其 他 4 个 集合 对 象 Errors、Properties、Parameters 和 Fields 分 别 对 应 Error、Property、 
Parameter 和 Field 对 象 ， 整 个 ADO 对 象 模 型 由 这 些 对 象 组 成 ， 如 表 9-6 所 示 。 


表 9-6_ADO 中 的 对 象 


对 _ 象 说 有 阴 
连接 。 创 建 与 数据 库 互 动 所 需 的 连接 ， 任 何 数据 库 的 操作 行为 都 必须 在 连接 基 
础 下 进行 。 因此 在 使 用 ADO 之 前 ,首先 要 创建 一 个 Connection 对 象 。 必须 注意 
Connection 对 象 


的 是 ， 这 个 动作 不 是 绝对 的 ，ADO 本 身 会 在 没有 Connection 对 象 的 情形 之 下 ， 
自行 创建 所 需 的 连接 对 象 
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( 续 表 ) 


对 象 说 了 明 


Command 对 象 


修改 。 针 对 连接 的 数据 库 进行 数据 变动 ， 将 用 户 提供 的 指令 传送 到 数据 库 。 进 
行 新 增 、 删 除 或 是 修改 资料 等 变动 处 理 ， 指 令 便 是 使 用 于 变动 数据 的 SQL 语句 


Recoreset 对 象 


查询 。 向 连接 的 数据 库 ， 提 出 取得 符合 特定 条 件 的 数据 内 容 。 应 用 程序 从 
Recoreset 对 象 取 得 所 要 处 理 的 特定 数据 内 容 ， 这 数据 可 能 是 某 个 特定 数据 表 的 
全 部 或 是 特定 内 容 ， 或 是 跨越 多 个 数据 所 取得 的 关系 型 数据 ， 这 些 数据 以 二 维 
数组 的 形式 提供 


Fields 集合 和 Field 
对 象 


Fields 集合 处 理 记录 中 的 各 个 列 。 记 录 集 中 返回 的 每 一 列 在 Fields 集合 中 都 有 一 
个 相关 的 Field 对 象 。 Field 对 象 使 得 用 户 可 以 访问 列 名 、 列 数据 类 型 以 及 当前 记 
录 中 列 的 实际 值 等 信息 


了 Parameters 集合 和 


Command 对 象 包含 一 个 Parameters 集 合 .Parameters 集合 包含 参数 化 的 Command 


Parameter 对 象 对 象 的 所 有 参数 ， 每 个 参数 信息 由 Parameter 对 象 表示 
Connection、Command、Recordset 和 Field 对 象 都 含有 Proiperties 集合 。 Properties 
Properties 集合 和 、 ” 
集合 用 于 保存 与 这 些 对 象 有 关 的 各 个 Property 对 象 。Property 对 象 表示 各 个 选项 
Property 对 象 


Errors 集合 和 Error| 
对 象 


设置 或 其 他 没有 被 对 象 的 固有 属性 处 理 的 ADO 对 象 特 征 
Connection 对 象 包含 一 个 Errors 集合 。Errors 集合 包含 的 Errors 对 象 给 出 了 关于 
数据 提供 者 出 错时 的 扩展 信息 


9.2 Connection 对 象 


Connection 对 象 又 称 连接 对 象 ， 用 来 和 数据 库 建立 连接 。Connection 对 象 建立 连接 后 ， 
才 可 以 利用 Command 对 象 或 Recordset 对 象 对 数据 库 进 行 各 种 操作 。 


9.2.1 与 数据 库 建 立 连接 


建立 Connection 对 象 是 采用 Server 对 象 的 CreateObject 方法 进行 的 , 其 语法 结构 如 下 : 


Set Connection 对 象 = Server.CreateObject("ADODB.Connection") 


其 中 ADODB.Connection 为 所 要 创建 的 ADO 连接 对 象 。 另 外 , 还 可 用 <OBJECT> 标 记 
来 创建 Connection 对 象 ， 例 如 : 


<OBJECT RUNAT=Server ID=cn PROGID="ADODB.Connection"></OBJECT> 


注意 : 


在 没有 明确 建立 Connection 对 象 的 情形 之 下 ，ADO 本 身 也 会 自行 创建 所 需 的 连接 对 
象 ， 但 这 样 将 无 法 利用 Conneciton 对 象 的 许多 功能 。 


一 


1. 用 DSN 连接 数据 库 


- 旦 连接 对 象 创建 之 后 ， 接 下 来 就 可 以 通过 这 个 对 象 来 连接 数据 库 ， 这 时 直接 引用 
Connection 对 象 的 Open 方法 即 可 ， 其 语法 结构 如 下 : 


Connection 对 象 .Open 连接 字符 串 或 变量 
在 “连接 字符 串 或 变量 ”中 各 参数 的 意义 ， 如 表 9-7 所 示 。 


表 9-7 Connection 对 象 的 Open 方法 的 参数 


参数 说 了 明 
Dsn ODBC 数据 源 名 称 
User 数据 库 登 录 账 号 
Password 数据 库 登 录 密 码 
Driver 数据 库 的 类 型 (驱动 程序 ) 
Db 数据 库 的 物理 路 径 
Provider 数据 提供 者 
Data Source 数据 库 的 物理 路 径 


如 果 用 到 两 个 以 上 的 参数 ,中 间 用 分 号 隔 开 ,顺序 没有 关系 。 有 些 参数 不 能 同时 使 用 ， 
比如 用 了 Driver 一 般 就 不 用 Provider， 用 了 Dsn 也 就 不 用 Driver 和 Provider， 如 下 例 所 示 : 


<%cn.Open "booknetdsn"."sa".""%> 


也 可 以 先 设 置 Connection String 属性 ， 再 调用 Open 方法 。 例 如 : 


<% 
cn.ConnectionString= "DSN=booknetdsn:; " 


cn.Open 
%> 


或 者 直接 将 连接 串 作 为 参数 来 调用 : 


<%cn.Open "DSN=booknetdsn:;:UID=sa:PWD="%> 


注意 : 

创建 有 ODBC 数据 源 的 连接 方法 书写 简便 ， 也 不 容易 出 错 。 更 重要 的 是 不 管 数据 库 放 
在 哪里 ， 只 要 对 数据 源 重 新 进行 设置 即 可 ， 不 需 更 改 程序 代码 。 如 果 要 移植 程序 到 另外 的 
服务 器 上 ， 则 需要 重新 设置 数据 源 。 


2. 创建 基于 OLE DB 连接 字符 串 的 连接 


如 果 在 “ODBC 数据 源 管理 器 ”中 没有 建立 一 个 DSN， 那 么 ADO 便 使 用 提供 的 OLE 
DB 连接 字符 串 来 识别 OLE DB 提供 者 并 将 提供 者 指向 数据 源 ， 如 下 例 所 示 : 
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<% 


cn.Open "Provider-SQLOLEDB.1:User ID=sa:Password=:"&_ 
"Initial Catalog=booknet:Data Source=zsh" 


%> 


其 中 ，Provider 指定 数据 提供 者 。Initial Catalog 指向 在 SQL Server 上 的 待 访问 的 数据 
库 。Data Source 指定 SQL Server 的 计算 机 名 或 他 地址。 
对 于 Access 数据 库 也 可 以 采用 这 种 方式 进行 连接 ， 如 下 例 所 示 : 


<%cn.Open "Provider=MicrosoftJeLOLEDB.4.0:Data Source=e:\book.mdb"%> 


3. 用 ODBC 连接 字符 串 连 接 数 据 库 
SQL 数据 库 也 可 以 不 设立 数据 源 ， 要 用 到 Driver 和 Dbq 两 个 参数 ， 如 下 例 所 示 : 


<%cn.Open "Driver=;Database=booknet:Server=(local):UID=sa:PWD="%> 


其 中 ，Driver 指定 数据 源 驱动 程序 的 名 称 ，SQL Server 使 用 {SQL Server} 来 进行 标识 。 
Database 指定 所 请 求 的 默认 数据 库 。Server 指定 数据 源 服务 器 的 名 称 ， 设 为 (locaD) 时 ,表示 
使 用 SQL Server 的 本 地 副本 。 


注意 : 


创建 没有 ODBC 数据 源 连接 的 应 用 程序 在 移植 到 别 的 服务 器 上 后 ， 就 可 以 立即 使 用 ， 
因此 ， 它 是 应 用 程序 中 比较 常用 的 与 数据 库 连接 的 方法 。 


对 于 其 他 类 型 的 数据 库 ， 它 们 的 连接 方法 ， 如 表 9-8 所 示 。 


表 9-8 ODBC 连接 字符 串 


数据 源 驱动 器 ODBC 连接 字符 串 
Microsoft Access, Driver={Microsoft Access Driver(*.mdb)}:DBQ= 指 向 .mdb 文件 的 物理 路 径 
Oracle Driver={Microsoft ODBC for Oracle}:SERVER= 指 向 服务 器 的 路 径 
. Driver={Microsoft Excel Driver(*.xls)}:DBQ= 指 向 .xal 文件 的 物理 路 
Microsoft Excel _， 
径 :DriverID=278 
. Driver={Microsoft Excel Driver(*.xls)}:DBQ= 指 向 .xal 文件 的 物理 路 
Microsoft Excel 97 , 
径 :DriverID=790 
pla Driver={Microsoft Paradox Driver(*.db)}:DBQ= 指 向 .db 文件 的 物理 路 
eT 径 :DriverID=26 
受 表 CDriver={Microsoft Text Driver(*.txt:*.csv)};DefaultDir= 指 向 .txt 文件 的 物 


理 路 径 


Visual FoxPro( 带 有 
一 个 数据 库容 器 ) 


Driver={Microsoft Visual FoxPro Driver}:SourceType=DBC:SourceDb= 指 
向 .dbc 文件 的 物理 路 径 


Visual FoxPro( 不 带 
数据 库容 器 ) 


Driver={Microsoft Visual FoxPro Driver}:SourceType=DBF:SourceDb= 指 
向 .dbf 文 件 的 物理 路 径 
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【 例 9-4】 以 本 章 【 例 9-1】 创 建 的 数据 库 dbl .mdb 和 【 例 9-3】 创 建 的 系统 DSN 为 基 
础 ， 创 建 Connection 对 象 并 与 数据 库 建立 连接 ， 读 取 数 据 库 指定 表 中 的 第 一 条 记录 ， 程 序 
运行 效果 如 图 9-27 所 示 。 

(1) 双击 打开 【 例 9-3〗 创 建 的 dbl.mdb 数据 库 ， 然 后 在 该 数据 库 的 数据 表 “ 表 1” 中 
输入 如 图 9-24 所 示 的 数据 。 

(2) 完成 数据 的 输入 后 选择 “文件 ”|“ 保 存 ”命令 ,将 数据 表 “ 表 1” 保 存 ， 如 图 9-25 
所 示 ， 然 后 关闭 Access 数据 库 。 


EN ma MD MA IAW ERD 
PEWYIHETTE 


FN way WED MAD WK eam IAV BoP We 
PE EWPTEEC EN TE 


9-24 ”在 数据 表 “ 表 1” 中 输入 数据 


(3) 打开 记事 本 工具 ， 然 后 输入 以 下 代码 : 
<Center><H4> 数 据 表 " 表 1" 中 的 第 一 条 记录 </H4></Center> 


<Hr> 

<% 
Set conn= Server.CreateObject("ADODB.Connection") "创建 Connection 对 象 com 
conn.Open "netdsn","sa","" "使 用 DSN 建立 comn 与 数据 库 的 连接 
Set rs = Server.CreateObject ("ADODB.Recordset")  ' 创 建 Recordset 对 象 rs 
sql="Select*from 表 1" ' 指 定 一 个 SQL 查询 语句 
Is.Open sql.conn.1,1 
'Recordset 对 象 使 用 SQL 查询 语句 打开 数据 库 
Response. Write rs.Fields("C-Id")&"<Br>" ' 显 示 数 据 库 中 的 内 容 


Response.Write Is.Fields("C-Name")&"<Br>" 
Response.Write 1s.Fields("C-address")&"<BIr>" 
Response.Write Is.Fields("C-Tel")&"<BI>" 
Response.Write Is.Fields("C-Mail") 

%> 


(4) 将 以 上 代码 保存 为 Connection.asp 后 ,运行 Connection.asp 后 的 结果 如 图 9-26 所 示 。 
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文件 到 锭 辑 下 查看 WD 中 说 夹 和 工具 中 攻 助 
去 wx :|B | x| | | 


数据 表 “ 表 1” 中 的 第 一 条 记录 


1 
南京 用 户 

南京 

025 一 84311122 
nanjing®sina. com 


加 
到 厂矿 六 阿 we [Si 


9-26 输出 结果 


【 例 9-5】 以 【 例 9-4】 在 数据 表 “ 表 1” 中 输入 的 数据 为 基础 ， 创 建 一 个 具有 多 种 与 
数据 库 连接 方式 的 连接 文件 ， 并 在 ASP 程序 包含 它 显示 数据 库 中 表 的 内 容 , 程序 运行 效果 
如 图 9-28 所 示 。 

(1) 打开 笔记 本 工具 ， 创 建 一 个 名 称 为 Conn.asp 的 文件 (如 图 9-27 所 示 )， 其 代码 如 下 


所 示 : 


<% 


%> 


dim Conn 

Set conn= Server.CreateObject("ADODB.Connection") 

"使 用 DSN 与 数据 库 建立 连接 的 第 一 种 方法 

conn.Open "netdsn","sa","" 

"使 用 DSN 与 数据 库 建立 连接 的 第 二 种 方法 

‘conn.ConnectionString = "DSN=netdsn:UID=sa:PWD=:;" 

'conn.Open 

"使 用 DSN 与 数据 库 建立 连接 的 第 三 种 方法 

'conn.Open "dsn=netdsn:UID=sa:PWD=:" 

' 使 用 OLE DB 字符 串 与 数据 库 建 立 连接 

‘conn.Open "Provider=SQLOLEDB.1:;User ID=sa:Password=:Initial Catalog=booknet:Data 
Source=local" 

"使 用 ODBC 字符 串 与 数据 库 建 立 连接 

"dim strConn 

'strConn = "Driver={SQL Server}:Database=booknet:Server=D:\TEST:UID=sa:PWD=:" 
‘conn.Open strConn 


(2) 将 Conn.asp 文件 保存 至 服务 器 主 目录 中 。 
(3) 创建 一 个 名 称 为 Connection2.asp 的 文件 ， 其 代码 如 下 所 示 : 


<Title> 数 据 库 连接 </Title> 

<!--#include file="conn.asp" --> 
<Center><H4> 显 示 数 据 库 中 表 的 内 容 </H4></Center> 
<Hr> 
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<% 
Set rs = Server.CreateObject ("ADODB.Recordset") 
sql= "Select* from 表 1" 
ITS.Open sql.conn.1.1 
With Response 
让 TS.EOF then 
Response.Write "现在 数据 库 为 空 ! " 
else 
Response. Write " <TABLE BORDER=1 CELLSPACE=0 CELLPADDING=5>"& 
"<TR HEIGHT=12><TD WIDTH=50><B> 编号 </B></TD>"&_ 
"<TD WIDTH=100><B> 名 称 </B></TD>"&_ 
"<TD WIDTH=200><B> 地 址 </B></TD>"&_ 
"<TD WIDTH=80><B> 电话 </B></TD></TR>" 
endif 
do Until rs.EOF 
Response. Write "<TR HEIGHT=12><TD WIDTH=50>" & rs.Fields("C-Id")& "</TD>" &_ 
"<TD WIDTH=100>" & rs.Fields("C-Name") & "</TD>" & 
"<TD WIDTH=200>" & rs.Fields("C-address") & "</TD>"& _ 
"<TD WIDTH=80>" & rs.Fields("C-Tel") & "</TD></TR>" 
Is.MoveNext 
loop 
Response. Write "</TABLE>" 
End With 
TS.close 
Set rs = Nothing 
conn.close 
set conn=Nothing 
%> 


(4) 将 Connection2.asp 文件 保存 至 服务 器 主 目录 后 ,运行 该 文件 的 结果 ,如 图 9-28 所 示 。 


底 御 位 酮 给 名 榜 式 人身 i 查看 个 帮助 人 
wm -Bn [enx| [TD-Tm- mm ” 
显示 数据 库 中 表 的 内 容 轩 
‘conn .Open 
“他 用 0SMS 才 据 库 建 立 话 扩 的 : I 
I 帘 。 名 称 [tt | 
市 忒 用户 | za i 
2 | Mies 
‘hooknet ;serupr =D: \TEST;UID=Sa;PYD=;™ 
Conn Open StrConn 
> 到 可 
| CE E33 TT 


图 9-27 创建 Conn.asp 文件 9-28 输出 结果 
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9.2.2 ”Connection 对 象 的 属性 


Connection 对 象 提供 了 丰富 的 属性 和 方法 ， 用 于 创建 、 保 存 和 设置 连接 信息 。 表 9-9 
所 示 中 列举 了 Connection 对 象 的 属性 。 


表 9-9 Connection 对 象 的 属性 
属 性 说 明 
Attributes 设置 Connection 对 象 控制 事务 处 理 时 的 行为 
CommandTimeout Execute 方法 的 最 长 执行 截止 时 间 
ConnectionString 指定 Connection 对 象 的 数据 库 链 接 信息 
ConnectionTimeout Open 方法 与 数据 库 链 接 的 执行 截止 时 间 
控制 光标 的 类 型 。 确 定 是 使 用 客户 端 (adUseClient) 游 标 引 擎 ， 还 是 使 用 服 


NO 务 器 端 (adUseServer) 游 标 引 擎 。 默 认 值 是 adUseServer 

i 在 数据 提供 者 提供 多 个 数据 库 的 情况 下 , 如 果 ConnectString 中 未 指定 数据 
库 名 称 ， 就 使 用 这 里 所 指定 的 名 称 

IsolationLevel 指定 和 其 他 并 发 事务 交互 时 的 行为 或 事务 

Mode 指定 对 Connection 的 读 写 权限 
如 果 ConnectionString 中 未 指定 OLE DB 数据 或 服务 提供 者 的 名 称 ， 就 使 

Provider 用 这 时 指定 的 名 称 。 默 认 值 是 MSDASQL(Microsoft OLE DB Provider for 
ODBC) 


指定 连接 的 状态 。 若 是 0 或 adStateClosed， 则 连接 是 关闭 的 ; 若是 1 或 
adStateOpen， 则 连接 是 打开 的 
Version 返回 ADO 版 本 号 

下 面 的 代码 创建 了 一 个 Connection 对 象 ， 并 访问 其 Version 属性 : 


<% 


State 


set conn=server.createObject("ADODB.Connection") 
%> 
<html> 
<head> 
<title>Connection Verion</title> 
<body> 
<center> 
<font size=4color=black> 
当前 使 用 的 ADO 版 本 为 <%=Conn.Version%> 
</font> 
</center> 
</body> 
</html> 


2 ASP 动态 网 站 开发 基础 教程 (第 4 版 ) 


以 上 代码 运行 后 的 结果 ， 如 图 9-29 所 示 。 


2 - 记 于 本 
EECEOEEITEECE 


|set conn=server.createQbject("“ADODe.Connection™") 


当前 使 用 的 AD0 版 本 为 2. 8 


eaae size-scaaor-baacky 
当前 使 用 的 pa 版 本 为 c&=conn .version%> 
fenty 
/centery 
> 
intm> 昌 加 
[ I 下 于 Intranet [56 -| 坟 100% -及 


图 9-29 ”Connection 对 象 的 Version 属性 


下 面 将 对 表 9-9 中 常用 的 几 个 Connection 对 象 的 属性 进行 介绍 。 
1. Attributes 属性 


Attributes 属性 通过 两 个 常数 确定 当前 事务 失败 或 成 功 后 是 否 自动 开始 一 次 新 的 事务 。 
如 果 设 为 131072 或 ADO 常量 adXactCommitRetaining, 则 调用 CommitTrans 方法 时 自动 启 
动 一 次 新 的 事务 ; 如 果 设 为 262144 或 ADO 常量 adXactAbortRetaining, 则 调用 RollbackTrans 
方法 后 ， 自 动 开始 一 次 新 的 事务 。 如 果 要 达到 两 种 效果 ， 则 该 属性 应 设 为 两 者 的 和 。 

2. CommandTimeout 属性 


CommandTimeout 属性 用 于 设置 Connection 对 象 的 Execute 方法 的 最 长 执行 时 间 。 其 
默认 值 为 30 秒 。 如 果 超 过 时 间 未 完成 命令 , 则 终止 命令 并 产生 一 个 错误 。 命令 无 法 在 指定 
时 间 内 执行 完成 ， 可 能 是 因为 网 络 延 时 或 服务 器 负载 过 重 而 无 法 及 时 响应 造成 的 。 如 果 将 
该 属性 设 为 0， 则 无 限期 地 等 待 直 到 执行 完成 。 如 下 例 将 把 CommandTimeout 的 最 长 时 间 
设置 为 60 秒 : 


<%db. CommandTimeout=60%> 


3. ConnectionString 属性 


ConnectionString 属性 指定 数据 提供 者 或 服务 提供 者 打开 到 数据 源 的 连接 所 需 的 特定 
信息 。 除 了 可 以 使 用 Connection 对 象 的 Open 方法 来 打开 数据 库 外 , 还 可 以 使 用 Connection 
对 象 的 ConnectionString 属性 来 打开 数据 库 ， 如 下 例 代码 所 示 : 


<% 

Dim db 
Set db=Server.CreatObject("ADODB.Connection") 
db.ConnectionString="Dbq="&Server.Mappath("dbl.mdb")&":_ 
Driver={Microsoft Access Driver(*.mdb)}" 
db.Open 

9%> 
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4. ConnectionTimeout 属性 


确定 ADO 试图 与 一 个 数据 源 建立 连接 时 的 最 大 连接 时 间 ， 默 认 值 是 15 秒 。 如 果 超 过 
时 间 未 完成 连接 ， 则 终止 连接 并 产生 一 个 错误 。 如 果 将 该 属性 设 为 0， 则 一 直 等 待 直到 连 
接 成 功 为 止 。 如 下 例 将 把 ConnectionTimeont 的 默认 值 设置 为 30 秒 : 


<%db. ConnectionTimeout=30%> 


5. Mode 属性 


Mode 属性 用 来 设置 连接 数据 库 的 权限 ， 利 用 该 属性 就 可 以 在 打开 数据 库 时 限制 数据 
库 的 连接 方式 ， 如 只 读 或 只 写 。 如 果 不 进行 设置 ， 可 具有 对 数据 库 进行 读 写 操作 的 权限 ， 
Mode 属性 的 取 值 及 其 相关 说 明 ， 如 表 9-10 所 示 。 


MODE 属性 
adModeUnknown 
adModeRead 
adModeWrite 
adModeReadWrite 
adModeShareDenyRead 
adModeShareDeny Write 
adModeShareExclusive 
adModeShareDenyNone 


表 9-10 Mode 属性 的 取 值 及 其 相关 说 明 


说 明 

| 0。 | 未 指定 数据 源 的 连接 许可 权 ( 默 认 什 ) 
| 1 ”| 连接 是 只 读 的 

连接 是 只 写 的 

连接 是 可 读 写 的 

| 4 ”| 拒绝 其 他 用 户 打开 到 数据 源 的 读 连接 
| s | “拒绝 其 他 用 户 打开 到 数据 源 的 写 连接 
以 独占 方式 打开 数据 源 

| 16 | 其 他 用 户 不 能 以 任何 方式 打开 连接 


9.2.3 ”Connection 对 象 的 方法 


Connection 对 象 的 方法 及 其 相关 说 明 ， 如 表 9-11 所 示 。 


表 9-11 Connection 对 象 的 方法 


方 ” 法 说 明 
Open 建立 Connection 对 象 和 数据 库 之 间 的 连接 
Close 关闭 Connection 对 象 和 数据 库 之 间 的 连接 
Execute 执行 数据 库 查询 (可 以 执行 各 种 操作 ) 
Cancel 取消 未 执行 完 的 异步 Execute 或 Open 方法 


开始 事务 处 理 
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( 续 表 ) 
方法 说 了 明 
CommitTrans 提交 一 个 事务 处 理 结果 
RollbackTrans 取消 一 个 事务 处 理 结果 


下 面 将 对 表 8-13 中 常用 的 几 个 Connection 对 象 的 方法 进行 介绍 。 

1. Open 方法 

Open 方法 用 来 建立 Connection 对 象 和 数据 库 之 间 的 连接 。 只 有 用 Open 方法 和 数据 库 
建立 连接 后 ， 才 可 以 继续 进行 各 种 操作 。 

2. Close 方法 

Close 方法 用 来 关闭 一 个 已 打开 的 Connection 对 象 及 其 相关 的 各 种 对 象 。 它 的 主要 作用 
是 用 以 切断 Connection 对 象 与 数据 库 之 间 的 连接 通道 。 当 该 通道 被 关闭 后 ， 所 有 依赖 该 
Connection 对 象 的 Command 或 Recordset 对 象 也 将 立即 被 切断 关系 ， 方 法 如 下 : 

<% 
db.Close 


Set db=nothing 
%> 


注意 : 
db.Close 用 来 关闭 连接 ， 这 样 可 以 释放 与 连接 有 关 的 系统 资源 。Connection 对 象 本 身 
并 没有 释放 ， 还 可 以 更 改 该 对 象 的 属性 并 重新 打开 。 如 果 要 从 内 存 中 完全 释放 Connection 
对 象 占 用 的 资源 ， 可 以 将 其 设 为 Nothing。 
3. Execute 方法 
Execute 方法 执行 指定 的 查询 、SQL 语句 、 存 储 过 程 或 数据 提供 者 指定 的 文本 ， 其 语 
法 结构 有 两 种 : 
Set Recordset 对 象 =Connection 对 象 . Execute(SQL 字符 串 ) 
或 
Connection 对 象 Execute(SQL 字符 串 ) 


注意 : 
当 对 数据 库 查 询 显示 记录 时 常 采用 第 一 种 Execute 执行 方法 , 它 将 返回 一 个 Recordset 对 象 ; 
而 执行 添加 、 删 除 和 更 新 操作 时 常 采 用 第 二 种 Execute 执行 方法 ， 它 不 返回 Recordset 对 象 。 


在 不 返回 Recordset 对 象 时 ， 可 使 用 一 个 number 参数 来 返回 此 操作 影响 的 记录 条 数 ， 
如 下 例 所 示 : 
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<% 
strSql="Delete From users Where name=' 陈 功 " 
db.Execute strSql.number 
Response.Write " 共 删除 "&number&" 条 记录 " 
%> 


4. BeginTrans 方法 
BeginTrans 方法 用 于 开始 一 个 事务 处 理 。 其 语法 结构 如 下 : 


Connection 对 象 . BeginTrans 


注意 : 

所 有 的 数据 库 操作 都 属于 事务 处 理 。 当 开始 一 个 事务 处 理 后 ， 就 打开 Web 页 面 与 数据 库 的 
事务 处 理 通道 ， 此 时 可 以 从 Web 页 面 上 直接 更 新 数据 库 内 容 。 但 只 有 在 提交 事务 处 理 结果 后 ， 
数据 库 的 内 容 才 能 被 真正 更 新 ， 否 则 ， 所 有 的 操作 都 无 效 。 


9.3 ”Command 对 象 


Command 对 象 定义 将 对 数据 源 执行 的 指定 命令 ， 这 些 命令 可 以 是 SQL 语句 、 表 名 、 
存储 过 程 或 其 他 数据 提供 者 支持 的 文本 格式 。Command 对 象 的 作用 相当 于 一 个 查询 , 使 用 
它 可 以 查询 数据 库 并 返回 记录 集 ， 也 可 执行 大 量 操作 或 处 理 数据 库 结构 。 

用 Command 对 象 执行 查询 的 方式 与 用 Connection、Recordset 对 象 执行 查询 的 方式 一 
样 ， 但 使 用 Command 对 象 可 以 改善 查询 。 用 Command 对 象 的 参数 查询 ， 可 先 在 数据 源 
上 准备 一 种 查询 方式 ， 然 后 用 不 同 的 值 来 重复 执行 查询 ， 以 避免 重复 发 出 类 似 的 SQL 查 
询 语 句 。 


9.3.1 创建 Command 对 象 


创建 Command 对 象 的 语法 结构 如 下 : 
Set Command 对 象 =Server.CreatObject("ADODB.Command") 
然后 ， 可 用 ActiveConnection 属性 指定 要 利用 的 Connection 对 象 名 称 ， 语 法 如 下 : 


Command 对 象 .ActiveConnection=Connection 对 象 


1. 通过 Connection 对 象 创建 Command 对 象 


每 个 Command 对 象 都 有 一 个 相关 联 的 Connection 对 象 。 在 创建 Command 对 象 之 前 ， 
- 般 应 该 先 建立 Connection 对 象 。 
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通过 Connection 对 象 创建 Command 对 象 ， 如 下 例 所 示 。 


<% 
Dim conn.cmd 
"创建 Connection 对 象 conn 
Set conn= Server.CreateObject("ADODB.Connection") 
"使 用 DSN 建立 conmn 与 数据 库 的 连接 
conn.Open "bookmnetdsn","sa"."" 
"创建 Command 对 象 cmd 
Set cmd= Server.CreateObject("ADODB.Command") 
' 将 Connection 对 象 conn 指定 给 Command 对 象 cmd 
cmd.ActiveConnection=conn 

%> 


2. 直接 创建 Command 对 象 
对 于 Command 对 象 ， 也 可 以 不 先 创建 Connection 对 象 就 直接 使 用 ， 只 需要 设置 
Command 对 象 的 ActiveConnection 属性 为 一 个 连接 字符 串 即 可 。 此 时 ，ADO 会 自行 创建 
-个 隐 含 的 Connection 对 象 ， 但 并 不 给 它 分 配对 象 变量 。 


注意 : 
创建 Command 对 象 的 过 程 中 ， 如 果 没 有 把 ActiveConnection 属性 设置 为 一 个 明确 的 
Connection 对 象 ， 即 使 使 用 相同 的 连接 字符 串 ，ADO 也 会 为 每 个 Command 对 象 创建 一 个 
新 的 连接 。 
不 通过 Connection 对 象 直接 创建 Command 对 象 ， 如 下 例 所 示 。 
<% 
Dim cmd 
Set cmd= Server.CreateObject("ADODB.Command ") 


cmd. ActiveConnection= "addr" 
%> 


9.3.2 Command 对 象 的 属性 


Command 对 象 的 属性 与 方法 相对 较 少 ， 其 属性 如 表 9-12 所 示 。 


表 9-12 Command 对 象 的 属性 


属 性 说 了 明 
ActiveConnection 指定 Connection 的 连接 对 象 
CommandText 指定 数据 库 的 查询 信息 


指定 数据 查询 信息 的 类 型 


CommandType 
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( 续 表 ) 


CommandTimeout 指定 Command 对 象 的 Execute 方法 的 最 长 执行 时 间 
指定 数据 查询 信息 是 否 要 先行 编译 、 存 储 
下 面 对 表 9-12 中 常用 的 几 个 Command 对 象 的 属性 进行 介绍 。 


1. ActiveConnection 属性 


Prepared 


ActiveConnection 属性 设置 或 返回 Command 对 象 的 连接 信息 ， 该 属性 可 以 是 一 个 
Connection 对 象 或 连接 字符 串 。 其 语法 结构 为 : 


Command 对 象 .ActiveConnection=Connection 对 象 

如 果 没 有 明确 建立 Connection 对 象 ， 则 其 语法 结构 为 : 
Command 对 象 .ActiveConnection= 数 据 源 名 称 字 符 串 

2. CommandText 属性 


CommandText 属性 设置 或 返回 对 数据 源 的 命令 串 ， 该 命令 串 可 以 是 SQL 语句 、 表 、 
存储 过 程 或 数据 提供 者 支持 的 任何 特殊 有 效 的 命令 文本 。 其 语法 结构 如 下 : 


Command 对 象 . CommandText=SQL 语句 或 数据 表 名 或 查询 名 或 存储 过 程 名 

注意 : 

如 果 为 CommandText 属性 指定 的 是 数据 表 名 ， 则 将 查询 和 返回 整个 数据 表 中 的 所 

有 内 容 。 

3. CommandType 属性 

CommandType 属性 用 于 指定 Command 对 象 中 数据 查询 信息 的 类 型 ,其 语法 结构 如 下 : 
Command 对 象 .CommandType= 类 型 值 

CommandType 属性 的 取 值 及 其 相关 说 明 ， 如 表 9-13 所 示 。 


表 9-13 CommandType 属性 的 取 值 及 其 相关 说 明 
CommandType 属性 整 数 值 说 了 明 


AdCmdText SQL 命令 类 型 

AdCmdTable 数据 表 名 

AdCmdStoredProc 查询 名 或 存储 过 程 名 

AdCmdUnknown 未 知 的 。CommandText 参数 类 型 无 法 确定 
AdExecuteNoRecords 不 返回 记录 集 的 命令 或 存储 过 程 
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( 续 表 ) 
CommandType 属性 说 了 明 
AdCmdFile 已 存在 的 记录 集 的 文件 名 
AdCmdTableDirect CommandText 是 一 个 表 , 在 查询 中 返回 该 表 的 全 部 行 和 列 


为 Command 对 和 象 指定 CommandType 值 ， 如 下 例 所 示 。 


<% 


Set cmd= Server.CreateObject("ADODB.Command ") 
cmd. ActiveConnection=conn 
cmd.CommandType=1 
cmd.CommandText="Select * From users" 
cmd.CommandType=2 
cmd.CommandText="users" 
%> 
注意 : 
在 未 指定 CommandType 值 的 情况 下 ， 系 统 会 自行 进行 判定 查询 信息 的 类 型 。 指 定 
CommandType 值 可 以 节省 系统 判定 过 程 的 时 间 ， 加 快 系统 运行 的 速度 。 


4. CommandTimeout 属性 


CommandTimeout 属性 设置 执行 一 个 Command 对 象 时 的 等 待 时 间 ， 默 认 值 是 30 秒 。 
如 果 在 这 个 时 间 内 Command 对 象 没有 执行 完 ， 则 终止 命令 并 产生 一 个 错误 。 

5. Prepared 属性 

Prepared 属性 指出 在 调用 Command 对 象 的 Execute 方法 时 ， 是否 将 查询 的 编译 结果 存 
储 下 来 。 如 果 将 该 属性 设 为 Tme， 则 会 把 查询 结果 编译 并 保存 下 来 ， 这 样 将 影响 第 一 次 的 
查询 速度 ， 但 一 旦 数据 提供 者 编译 了 Command 对 象 ， 数 据 提供 者 在 以 后 的 查询 中 将 使 用 
编译 后 的 版 本 ， 从 而 极 大 地 提高 速度 。 其 语法 结构 如 下 : 

Command 对 象 . Prepared= 布 尔 值 


9.3.3 Command 对 象 的 方法 


Command 对 象 的 方法 及 其 相关 说 明 ， 如 表 9-14 所 示 。 


表 9-14 Command 对 象 的 方法 


方法 说 明 
Execute | 执行 数据 库 查询 (可 以 执行 各 种 操作 ) 
CreateParameter | 用 来 创建 一 个 Parameter 子 对 象 


Cancel 取消 一 个 未 确定 的 异步 执行 的 Execute 方法 
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使 用 Command 对 象 有 几 个 重要 的 步骤 , 即 创建 Command 对 象 、 指 定 对 象 数据 库 连 接 、 
指定 SQL 指令 和 引用 Execute 方法 。 
e 创建 Command 对 象 ， 和 连接 数据 库 一 样 ， 运 用 Command 对 象 之 前 首先 必须 引用 
CreateObject 对 象 ， 创 建 其 对 象 实体 ， 设 定 对 象 识别 名 称 ， 如 下 例 所 示 。 
Dim objCommand 
Set objCommand =Server.CreateObject("ADODB.Command") 


注意 : 
其 中 ，objCommand 为 所 要 创建 的 指令 对 象 名 称 ， 应 用 程序 在 对 象 实体 创建 之 后 ， 以 
此 作为 名 称 识别 。 

e 指定 对 象 数据 库 连 接 : Command 对 象 以 特定 连接 为 基础 ， 针 对 连接 的 数据 库 进行 
存 取 操 作 ， 应 用 程序 必须 设置 Command 对 象 所 要 存 取 的 数据 库 连 接 对 象 。 

e SQL 指令 : Command 对 象 本 身 并 没有 具备 数据 变动 的 功能 ， 其 主要 功能 在 于 将 指 
定 的 SQL 语句 传送 至 数据 库 ， 由 数据 库 根 据 传送 过 来 的 SQL， 进行 数据 存 取 操作 ， 
ASP 网 页 则 负责 将 特定 的 SQL 指定 给 Command 对 象 。 

e 引用 Execute 方法 : 当 Command 对 象 设 定 完 成 之 后 , 最 后 只 需要 引用 方法 Execute， 
即 可 将 指定 的 SQL 通过 连接 对 象 ， 传 送 至 服务 器 端 数 据 库 做 处 理 。 


9.3.4 ”参数 查询 


如 果 要 创建 一 个 使 用 多 次 但 每 次 使 用 不 同 值 的 查询 ， 那 么 应 在 查询 中 使 用 参数 ， 即 创 
建 参数 查询 。 参 数 是 查询 时 所 提供 值 的 占 位 符 , 它 将 WHERE 子 句 中 国定 值 用 “?” 来 代替， 
被 称 做 占 位 符号 。 这 样 就 避免 了 在 每 次 查询 中 重新 建立 SQL 查询 语句 。 
-个 Parameter 对象 就 是 一 个 参数 ，Parameters 集合 就 是 若干 个 参数 的 集合 。Parameter 
对 象 和 Parameters 集合 都 有 各 自 的 属性 和 方法 。 


1. Parameters 集合 的 属性 和 方法 
Command 对 象 包含 一 个 Parameters 集合 。Parameters 集合 包含 参数 化 的 Command 对 
象 的 所 有 参数 ， 每 个 参数 信息 由 Parameter 对 象 表示 。Parameters 集合 的 属性 和 方法 及 其 相 
关 说 明 ， 如 表 9-15 所 示 。 
表 9-15 Parameters 集合 的 属性 和 方法 
名 称 说 明 
Count 属性 | 返回 Command 对 象 的 参数 个 数 


Append() 方 法 增加 一 个 Parameter 对 象 到 Parmeters 集合 中 


2 ASP 动态 网 站 开发 基础 教程 (第 4 版 ) 


( 续 表 ) 
名 称 说 明 
Delete0 方 法 | 从 Parameters 集合 中 删除 一 个 Parameter 对 象 
Item0 方 法 | 取得 集合 内 的 某 个 对 象 
Refresh0 方 法 重新 整理 Parameters 数据 集合 


2. 创建 Parameter 对 象 

要 执行 一 个 参数 查询 ， 必 须 先 调用 CreateParameter 方法 创建 一 个 Parameter 对 象 ， 然 
后 调用 Append 方法 将 其 添加 到 Parameters 集合 中 ， 再 将 值 赋 给 参数 。 创 建 Parameter 对 象 
的 语法 结构 如 下 : 

Set Parameter 对 象 ~Command 对 象 .CreateParameter(Name.Type.Direction.Size.Value) 

其 中 Name 表示 参数 名 ，Type 表示 参数 类 型 ，Direction 表示 参数 的 数据 流向 ，Size 表 
示 字 符 参数 串 长 度 ，Value 表示 参数 的 值 。 

创建 Parameter 对 象 的 过 程 中 ， 参 数 的 类 型 由 Type 来 定义 ， 它 的 取 值 及 其 相关 说 明 ， 
如 表 9-16 所 示 。 


表 9-16_Type 的 取 值 范围 


常 量 值 说 了 明 
AdBigInt 20 八 位 符号 整数 
AdBina 128 二 进 制 值 
AdBoolean 11 布尔 值 
AdBSTR. 8 以 空 值 结束 的 Unicode 字符 串 
AdChar 129 字符 串 值 
AdCurrenc: 6 货币 值 ，8 字 节 长 
AdDate 7 日 期 值 
AdDBDate 133 日 期 值 ， 格 式 是 yyyymmdd 
AdBDTime 134 时 间 值 ， 格 式 是 hhmmss 
AdDBTimeStamp 135 日 期 时 间 值 ， 格 式 是 yyyymmddhhmmss 
AdDecimal 14 有 固定 精度 的 数值 
AdDouble 5 双 精 度 浮 点 值 
AdEmpty 0 无 指定 值 
AdError 10 32 位 错误 码 
AdGUID CE 全 局 唯一 指示 符 
AdIDispatch 9 指向 OLE 对 象 的 接口 指针 
AdInteger 3 四 位 符号 整数 
AdIUnknown 13 指向 OLE 对 象 的 IUnknown 接口 指针 
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( 续 表 ) 
常量 值 说 阴 
AdLongarBinary 205 长 整 型 二 进 制 ( 仅 用 于 Parameter 对 象 ) 
AdLongarChar 201 长 字符 串 值 ( 仅 用 于 Parameter 对 象 ) 
AdLongarWChar 203 以 空 值 结束 的 长 字符 串 值 ( 仅 用 于 Parameter 对 象 ) 
AdNumeric 131 有 固定 精度 的 数值 
AdSingle 4 单数 度 浮 点 值 
AdSmallInt 2 二 位 符号 整数 
AdTinyInt 16 一 位 符号 整数 
AdUnsignedBigImt 21 八 位 无 符号 整数 
AdUnsignedInt 19 四 位 无 符号 整数 
AdUnsignedSmallInt 18 二 位 无 符号 整数 
AdUnsignedTinyInt i 一 位 无 符号 整数 
AdUserDefined 132 用 户 定义 的 变量 
AdvarBina 204 二 进 制 值 ( 仅 用 于 Parameter 对 象 ) 
AdvarChar 200 字符 串 值 ( 仅 用 于 Parameter 对 象 ) 
AdVariant 12 OLE 的 Variant 类 型 
AdVarWChar 202 以 空 值 结束 的 Unicode 字符 串 ( 仅 用 于 Parameter 对 象 ) 
AdWChar 130 以 空 值 结束 的 Unicode 字符 串 


创建 Parameter 对象 的 过 程 中 ， 参 数 的 数据 流向 由 Direction 来 定义 ， 它 的 取 值 及 其 相 
关 说 明 ， 如 表 9-17 所 示 。 


表 9-17_Direction 的 取 值 范围 


输入 参数 ， 即 传送 数据 给 一 个 存储 过 程 


输出 参数 ， 即 从 得 到 Command 对 象 执行 后 的 输入 值 
输入 和 输出 参数 ， 即 传送 并 接收 数据 
AdParamReturnvalue 返回 值 ， 用 来 读 取 从 存储 过 程 返回 的 状态 值 


3. Parameter 对 象 的 属性 
-个 Parameter 对 象 表示 一 个 基于 带 参 数 的 查询 或 存储 进程 的 Command 对 象 相关 的 参 
数 。Parameter 对 象 的 一 些 属性 是 从 传递 给 Command 对 象 CreateParameter 方法 的 参数 那里 
继承 而 来 的 ，Parameter 对 象 的 属性 及 其 相关 说 明 ， 如 表 9-18 所 示 。 
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表 9-18 Command 对 象 的 CreateParameter 方法 的 参数 意义 


参数 说 了 明 
Name 参数 名 称 
Type 参数 类 型 
Direction 参数 方向 ， 传 入 还 是 传 出 
Size 参数 大 小 ， 指 定 最 长 字 节 ， 可 以 省 略 
Value 参数 值 
Attributes 指定 该 参数 的 数值 性 质 


其 中 ，Attributes 参数 用 来 指定 参数 值 的 性 质 ， 其 取 值 及 其 相关 说 明 ， 如 表 9-19 所 示 。 


表 9-19 Attributes 参数 的 取 值 范围 


常量 值 说 阴 
AdParamLong 128 允许 有 相当 大 的 数值 
AdParamNullable 64 允许 NULL 值 
AdParamSigned 16 允许 数值 有 正 负 符 号 


4. Parameter 对 象 的 方法 

Parameter 对 象 只 有 一 个 AppendChunk 方法 , 用 来 处 理 传 递 给 一 个 参数 的 长 文本 或 二 进 制 
数据 。 它 允许 把 一 个 长 文本 或 二 进 制 信息 加 入 到 Parameter 对 象 的 末尾 ， 其 语法 结构 如 下 : 

Parameter 对 象 .AppendChunk( 长 文本 或 二 进 制 数据 ) 

注意 : 

在 使 用 该 方法 前 ，Parameter 对 象 的 Attributes 参数 必须 设置 为 adFLDLong， 这 样 
Parameter 对 象 能 够 接受 该 方法 加 入 的 长 文本 或 二 进 制 数据 。 当 多 次 调用 该 方法 时 ， 新 数据 
就 可 以 连续 性 地 加 入 到 现存 的 参数 中 。 


9.4 习 题 


9.4.1 填空 题 


1. 数据 库 本 身 由 多 个 数据 表 所 组 成 ， 表 中 每 一 个 行 代 表 一 个 ， 每 一 列 代 
表 一 个 4 
2. 索引 本 身 根 据 其 功用 可 以 分 为 两 种 : 和 
3 指定 SELECT 语句 查询 及 与 查询 相关 的 表 或 视图 。 
4. 建立 Connection 对 象 是 采用 Server 对 象 的 方法 进行 的 。 
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9.4.2 ”选择 题 


1. 目前 常用 的 数据 库 管 理 系统 属于 (  )。 
A. 关系 型 B. 层次 型 C. 网 状 型 D. 结构 型 
2. 在 ODBC 数据 源 管理 器 中 , DSN 还 分 为 用 户 DSN、 系 统 DSN 和 文件 DSN 这 3 种 。 
用 户 可 以 通过 ODBC 数据 源 管理 器 创建 (。”) 类 型 的 DSN。 


A.1 种 B.2 种 
C.3 种 D. 以 上 全 错 
3. 在 开发 基于 数据 库 的 Web 应 用 程序 时 ， 构 建 (。”) 都 是 可 以 的 
A. 系统 DSN 和 文件 DSN B. 文件 DSN 和 用 户 DSN 
C. 系统 DSN 和 用 户 DSN D. 以 上 全 错 


9.4.3 问答 题 


1. OLE DB 有 哪 两 层 结构 ， 它 有 什么 优势 ? 
2. 在 ADO 模型 中 有 哪些 对 象 ? 
3. 简 述 Command 对 象 和 Connection 对 象 之 间 的 关系 。 


9.4.4 ”操作 题 


1. 在 Access 2003 中 创建 一 个 名 称 为 CDB.mdb 的 数据 库 , 并 在 该 数据 库 中 设置 一 个 如 
表 9-20 所 示 的 数据 表 Custom。 


表 9-20 数据 表 Custom 


上 | 主人 
Name | 证 | 
address - 
Tel = 
Mail 


2. 以 上 题 创建 的 数据 库 为 基础 ， 参 考 本 章 练 习 所 介绍 的 方法 ， 创 建 数据 库 连 接 。 
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Recordset 对 象 是 一 个 记录 的 集合 ， 是 按 字 段 (或 列 ): 和 记录 (或 行 ) 的 形式 构成 的 二 维 表 。 每 
个 Recordset 对 象 表示 表 中 的 记录 或 运行 一 次 查询 所 得 到 的 结果 。 使 用 Recordset 对 象 , 可 以 在 
记录 一 级 上 对 数据 库 中 的 数据 进行 各 种 操作 ， 如 增 、 删 和 定位 记录 以 及 更 新 数据 库 等 。 

教学 目标 

通过 对 本 章 的 学 习 ， 读 者 应 掌握 Recordset 对 象 的 各 种 属性 和 方法 ， 并 能 够 利用 
Recordset 对 象 对 数据 库 进 行 各 种 操作 。 

@ 用 Recordset 对 象 处 理 结果 

ee Recordset 的 应 用 

e Fields 集合 和 Field 对 象 


10.1 Recordset 对 象 概述 


对 于 检索 数据 、 检 查 结果 、 更 改 数据 库 ，ADO 提供 了 Recordset 对 象 。Recordset 对 象 
是 一 个 记录 的 集合 ， 用 于 检索 和 更 新 数据 库 。 数 据 库 应 用 程序 通常 用 Connection 对 象 建立 
链接 并 用 Recordset 对 象 处 理 返 回 的 数据 。 

尽管 Connection 对 象 简化 了 连接 数据 库 和 查询 任务 ,但 Connection 对 象 仍 有 许多 不 足 : 
检索 和 显示 数据 库 信息 的 Connection 对 象 不 能 用 于 创建 脚本 ; 用 户 必须 确切 地 知道 要 对 数 
据 库 作出 的 更 改 ， 然 后 才能 使 用 查询 实现 更 改 。 


10.1.1 认识 Recordset 对 象 


Recordset 对 象 可 以 创建 一 个 记录 集合 ， 并 将 所 需 的 记录 从 表 中 取出 。 同 时 ， 使 用 虚拟 表格 
的 方式 ， 每 一 行为 一 条 记录 ， 每 一 列 则 代表 一 个 字段 ， 提 供给 ASP 程序 处 理 ， 如 图 10-1 所 示 。 


| 分 类 编号 | 产品 代号 产品 名 称 。 | 产品 简 述 
55 0001000001 LA-Gear Mouse PAD MODEL No.TMP 
记录 指针 ED A 
SS 0001000002 LA-Gear Mouse PAD 1 MODEL No.TIMP 
一 04 


10-1 Recordset 对 象 的 记录 指针 
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e Recordset 中 的 记录 指针 具有 游标 类 型 (CursorType)。 不 同 的 游标 类 型 可 对 记录 集 进 
行 不 同 的 操作 ， 默 认 值 为 0， 代表 记录 指针 只 能 向 前 移动 记录 集 ， 也 可 定义 成 其 他 
值 ， 人 允许 记 录 指 针 在 记录 集中 上 下 移动 。 

e 数据 源 本 身 具 有 锁定 的 能 力 。 具 有 这 项 功能 最 主要 的 目的 在 于 避免 两 个 SQL 查询 
操作 同时 写 同一 条 记录 。 

e 当前 记录 指针 的 位 置 。 Recordset 的 MoveFirst 方法 可 以 将 记录 指针 移 到 第 一 条 记录 
的 位 置 ， MoveLast 方法 可 将 记录 指针 移 到 记录 和 集合 的 最 后 一 条 ; MoveNext 方法 可 
使 指针 移 到 下 一 条 ; MovePrevious 方法 则 是 移 到 上 一 条 。 


10.1.2 ”Recordset 对 象 的 工作 流程 


Recordset 对 象 在 使 用 前 同样 需要 使 用 Connection 对 象 建立 数据 库 的 连接 ， 其 步骤 如 下 。 
1. 创建 Connection 对 象 ， 打 开 数 据 源 


创建 一 个 Connection 对 象 ， 并 保存 在 OBJConn 变量 中 ， 然 后 打开 数据 源 ， 程 序 代 码 
如 下 : 


Set OBJConn = Server.CreateObject("ADODB.Connection") 
OBJConn.Open stDSN “' 打开 数据 源 


2. 创建 Recordset 对 象 

在 取得 与 数据 库 的 连接 之 后 ， 接 着 即 可 创建 Recordset 对 象 ， 其 程序 代码 如 下 : 
Set Rs = OBJConn.Execute( SQLstr ) 

3. 打开 Recordset 对 象 取 得 数据 


在 Recordset 对 象 创 建 完 成 之 后 ， 即 可 打开 Recordset 对 象 的 内 容 。 此 Recordset 对 象 
的 内 容 可 以 是 表 、SQL 查询 语句 ， 如 果 是 表 ， 其 命令 如 下 所 示 : 


Rs.Open "产品 基本 信息 ", OBJConn. adOpenStatic. adLockReadOnly. adCmdTable 
或 
Set Rs = OBJConn.Exceute(CommandText. RecordsAffected. Options) 
上 述 程序 代码 使 用 Recordset 对 象 Rs 的 Open 方法 打开 “产品 基本 信息 ” 表 ， 第 2 个 


参数 为 Connection 对 象 OBJConn， 其 后 3 个 参数 为 定义 在 文件 adovbs.inc 中 的 常数 ， 定 义 
了 Recordset 对 象 的 存 取 方 式 。 


4. 处 理 Recordset 对 象 的 记录 
在 打开 Recordset 对 象 的 记录 集合 之 后 ， 即 可 开始 使 用 Recordset 对 象 的 属性 及 方法 进 
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行 表 的 操作 或 取得 当前 的 状态 。 例 如 取得 Recordset 对 象 的 状态 属性 State， 代 码 如 下 : 


IfRs.State= 1 Then 
Response.Write("<b>Rs 对 象 目前 处 于 打开 的 状态 </b><br>") 


Else 
Response.Write("<b>Rs 对 象 目前 处 于 关闭 的 状态 </b><br>") 
EndIf 
注意 : 


上 述 程 序 代码 是 利用 If..Then...Else 语 句 的 方式 检查 状态 属性 State, 查看 当前 Recordset 
对 象 的 打开 状态 。 如 果 返 回 值 为 1， 代表 状态 已 打开 ， 返 回 值 为 0 则 代表 状态 已 关闭 。 


5. 关闭 Recordset 对 象 
关闭 Recordset 对 象 的 代码 如 下 : 
Rs.Close 
SetRs=Nothing 
在 执行 上 述 程序 代码 之 后 ， 将 会 关闭 Recordset 对 象 ， 并 且 由 Set Rs = Nothing 释放 
Recordset 对 象 。 
6. 关闭 与 数据 库 的 连接 
要 关闭 数据 库 连 接 ， 可 使 用 Connection 对 象 的 Close 方法 ， 代 码 如 下 : 


OBJConn.Close 
set OBJConn = Nothing 


10.1.3 ”Recordset 对 象 的 属性 


Recordset 对 象 的 属性 及 其 相关 说 明 ， 如 表 10-1 所 示 。 
表 10-1 Recordset 对 象 的 属性 

属 性 说 了 明 
设置 或 返回 当前 记录 所 在 的 页 号 。 用 该 属性 可 使 当前 记录 跳 到 指定 的 页 ， 
如 : <% Ts.AbsolutePage = 6 %> 
设置 或 返回 当前 记录 在 记录 集中 的 位 置 。 用 该 属性 可 使 某 一 记录 成 为 当前 
记录 ， 如 : <% rs.AbsolutePosition = 10 %> 
定义 Recordset 对 象 与 数据 库 的 连接 。 该 属性 或 者 指向 一 个 当前 打开 的 
Connection 对 象 ， 或 者 定义 一 个 新 的 连接 
BOF 车 记录 指针 位 于 第 一 条 记录 之 前 ， 则 为 Tue， 否则 为 False 


AbsolutePage 


AbsolutePosition 


ActiveConnection 
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( 续 表 ) 
属 性 说 了 明 
BookMark 设置 或 返回 一 个 记录 的 书签 ， 如 mark=rs.BookMark 或 rs.BookMark=mark 
CacheSize 设置 本 地 机 可 以 缓存 的 记录 数 ， 默 认 值 为 1 
CursorType 设置 记录 集 所 用 的 游标 类 型 ， 详 见 表 9-3 
设置 游标 位 置 ， 若 设 成 1 或 adUseClient， 使 用 客户 端 提供 的 本 地 游标 ， 若 
设 成 2 或 adUseServer( 默 认 值 )， 则 使 用 数据 提供 者 的 游标 
指出 当前 记录 的 编辑 状态 ， 取 值 如 下 。 
4 0 或 常量 adEditNone: 在 当前 处 理 过 程 中 没有 编辑 操作 。 
ee 4 1 或 常量 adEditInProgress: 当前 记录 已 被 更 改 ， 但 尚未 保存 到 数据 库 。 
* 2 或 常量 adEditAdd: 当前 缓冲 区 内 数据 是 用 AddNew 方法 写 入 的 新 记 
录 ， 但 尚未 保存 到 数据 库 。 
4 3 或 常量 adEditDelete: 当前 记录 已 被 删除 
EOF 车 记录 指针 位 于 最 后 一 条 记录 之 后 ， 为 Tme， 否 则 为 False 
Filter 定义 第 选 器 来 获取 特定 的 记录 ， 如 rs Filter="AuthorID">1000 
LockType 设置 记录 集 所 用 的 锁定 类 型 ， 详 见 表 9-4 
确定 一 次 所 能 返回 的 最 大 记录 数 ， 默 认 值 为 0， 表示 返回 全 部 请 求 的 记录 。 
人 在 记录 集 关闭 时 该 属性 可 读 写 ， 在 打开 记录 集 后 只 读 
PageCount 记录 集 所 包含 的 页 数 ， 每 页 记录 数 由 PageSize 决定 
PageSize 指定 一 页 中 包含 的 记录 数 
RecordCount 记录 和 集 所 包含 的 记录 条 数 
Sort 设置 记录 集 的 排序 方式 
Source 设置 记录 集 数据 来 源 ， 可 以 是 Command 对 象 、SQL 语句 、 表 名 或 存储 过 程 
确定 记录 集 的 打开 /关闭 状态 ， 取 值 如 下 。 
4 0 或 adStateClosed: 表示 记录 集 已 关闭 。 
Sie 4 1 或 adStateOpen: 表示 记录 集 已 打开 。 
4 2 或 adStateConnecting: 表示 正在 连接 。 
4 3 或 adStateExecuting: 表示 记录 集 正在 执行 一 个 命令 。 
* 4 或 adStateFetching: 表示 记录 和 集 正 在 获取 数据 
Status 当前 记录 所 处 的 状态 ， 详 见 表 9-5 


10.1.4 ”Recordset 对 象 的 方法 


Recordset 对 象 的 方法 及 其 相关 说 明 ， 如 表 10-2 所 示 。 
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表 10-2 “Recordset 对 象 的 方法 


方 ” 法 说 阴 
AddNew 增加 一 条 记录 
CancelBatch 取消 一 个 批 处 理 更 新 
CancelUpdate 在 更 新 前 取消 对 当前 的 所 有 更 改 
Clone 建立 记录 集 的 一 个 副本 
Delete 删除 一 条 或 多 条 记录 
GetRows 从 记录 集中 得 到 多 条 记录 并 存 入 数组 中 
Move 将 记录 指针 移 到 指定 的 位 置 
MoveFirst 将 记录 指针 移 到 第 一 条 记录 处 
MoveLast 将 记录 指针 移 到 最 后 一 条 记录 处 
MoveNext 将 记录 指针 移 到 下 一 条 记录 处 
MovePrevious 将 记录 指针 移 到 前 一 条 记录 处 
NextRecordSet 从 能 产生 多 个 结果 的 命令 中 返回 下 一 个 记录 集 
Open 打开 记录 集 
Requery 重新 执行 查询 来 刷新 记录 集 
Resync 刷新 服务 器 内 的 同步 数据 
Save 将 记录 和 集 保存 到 一 个 文件 中 
Supports 判断 记录 集 是 否 支持 指定 的 功能 
Update 将 修改 结果 保存 到 数据 库 中 
UpdateBatch 将 缓冲 区 内 批量 修改 结果 保存 到 数据 库 中 


【 例 10-1】 创建 一 个 搜索 页 面 ， 当 用 户 在 表单 中 输入 出 版 社 名 称 并 单 击 “ 提 交 ” 按 钮 后 ， 
可 返回 数据 库 中 该 出 版 社 所 有 图 书 的 详细 信息 , 程序 运行 效果 如 图 10-2 和 图 10-3 所 示 ( 在 操作 
本 实例 前 ， 用 户 应 结合 本 书 第 9 章 所 介绍 的 内 容 创建 搜索 页 面 的 数据 库 并 输入 数据 )。 

(1) 创建 一 个 名 称 为 “出 版 社 查询 .asp” 的 网 页 ， 其 代码 如 下 所 示 : 


<%@ Language=VBScript %> 
<% Response.Buffer = True %> 
<HIMI> 
<TITLE> 出 版 社 查询 </TITLE> 
<HEAD> 
<SCRIPT Language="VBScript" RUNAT="Server"> 
Sub rs_DisplayO 
dim strConn.strSQL.strWriter 
strPress = Request.Form("PressName") 
让 strPress<>"" then 
"创建 Connection 对 象 conn 
Set conn=Server.CreateObject("ADODB.Connection") 
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"使 用 DSN 建立 conn 与 数据 库 的 连接 
strConn="Driver={SQL Server}:Database=booknet:Server=ZHANGSHIHUA\TEST:UID=sa: 
PWD=," 
conn.Open strConn 
strSQL = "SELECT * FROM Books" 
strSQL = strSQL & " WHERE Press LIKE '%" & Trim(strPress) & "%" 
Set rs = Server.CreateObject("ADODB.Recordset") 
TS.Open strSQL.conn 
With Response 

if rs.EOF then 

.Write "没有 查询 到 相关 的 记录 ! " 


else 


Write "<TABLE BORDER=1 CELLSPACE=0 CELLPADDING=5>" &_ 
"<TR HEIGHT=12><TD WIDTH=70><B> 图 书 编号 </B></TD>"&_ 
"<TD WIDTH=300><B> 书 名 </B></TD>"&_ 
"<TD WIDTH=150><B> 作者 </B></TD>"&_ 
"<TD WIDTH=40><B> 价格 </B></TD></TR>" 
endif 
do Until rs.EOF 
.Write "<TR HEIGHT=12><TD WIDTH=70>" & rs("BookID") & "</TD>" &_ 
"<TD WIDTH=300>" & rs("BookName") & "</TD>" &_ 
"<TD WIDTH=150>" & rs("Writer") & "</TD>" &_ 
"<TD WIDTH=40>" & rs("Price") & "</TD></TR>" 
Is.MoveNext 
loop 
.Write "</TABLE>" 
End With 
Is.Close 


conn.Close 


endif 

end sub 

</SCRIPT> 

<body> 
<Center><H2> 按 出 版 社 名 称 查 询 </H2><HR> 
<FORM NAME="thisForm" METHOD=POST 


ACTION="<%=Request.ServerVariables("Script Name")%>" > 
<P> 请 输入 出 版 社 名 称 :<INPUT TYPE="text" NAME="PressName" SIZE=20> 
<INPUT TYPE="submit" NAME="btnSubmit" value=" 提 交 "> 
<INPUT TYPE="reset" NAME="btnReset" value=" 重 置 "></P> 


</FORM> 
<Hr> 


call rs_DisplayO 
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%> 
</Center></BODY></HTIMI> 


(2) 启动 正 浏览 器 后 ， 在 浏览 器 地 址 栏 中 输入 http://localhost/ 出 版 社 查 询 .asp， 按 下 
Enter 键 ， 效 果 如 图 10-2 所 示 。 


Sm 四 

广 桂 四 DO PhD Rem iow lee | 90 9. mo- me m0@ 3 
eR -| Br [Bsx| | 全- 了 | 搜 出 版 村 名 称 查 询 

按 出 版 社 名 称 查询 

请 答 入 |I 社 名 称 | 医 直 
司 汉 加 到 | 
| 

I 二 ES 

图 10-2 查询 页 面 图 10-3 ”查询 结果 


10.2 ”使 用 Recordset 对 象 


Recordset 对 象 可 以 根据 查询 条 件 ， 检 索 并 且 显 示 一 组 数据 库 记 录 。Recordset 对 象 保 
持 查 询 返 回 的 记录 位 置 ， 允 许 一 次 一 项 逐步 扫描 结果 ， 根 据 Recordset 对 象 的 指针 类 型 属 
性 设置 ， 可 以 滚动 显示 和 更 新 记录 。 指 针 可 以 在 一 组 记录 中 定位 到 特定 的 项 ， 还 用 于 检索 
和 检查 记录 ， 然 后 在 这 些 记录 的 基础 上 执行 操作 。 


10.2.1 游标 类 型 


游标 类 型 (CursorType) 代 表 不 同 的 数据 获取 方法 。 打 开 记录 集 时 ， 可 在 Open 方法 中 指 
定 Recordset 对 象 所 用 的 游标 类 型 ,或 者 在 调用 Open 方法 前 用 CursorType 属性 来 设置 游标 
类 型 。 记 录 集 打开 后 ，CursorType 属性 是 只 读 的 ， 可 以 用 该 属性 来 返回 游标 类 型 。 

游标 类 型 的 取 值 与 相关 说 明 ， 如 表 10-3 所 示 。 


表 10-3_ 游标 类 型 (CursorType) 


类 型 常 量 名 说 阴 
只 能 向 前 浏览 记录 。 对 简单 的 浏览 可 提高 性 能 ， 但 很 多 
AdOpenForward 
仅 向 前 i 属性 和 方法 (如 BookMark、RecordCount、 AbsolutePage、 
y 


AbsolutePosition 等 ) 不 能 使 用 

其 他 用 户 对 记录 所 做 的 修改 将 反映 到 记录 集中 ， 但 其 他 
用 户 增 加 或 删除 的 记录 不 会 反映 到 记录 集中 。 键 集 游标 
支持 BookMark 属性 ， 支 持 全 功能 的 浏览 ， 可 以 使 用 
RecordCount、AbsolutePage 和 AbsolutePosition 等 属性 


键 集 adOpenKeyset 


第 10 章 Recordset 对 象 *209* 


( 续 表 ) 


说 了 明 
动态 游标 功能 最 强 ， 但 消耗 资源 也 最 多 。 使 用 动态 游标 


动态 时 ， 其 他 用 户 对 记录 所 做 的 增加 、 删 除 或 修改 的 记录 都 
会 反映 到 记录 集中 。 动 态 游标 支持 全 功能 的 浏览 
静态 游标 只 是 数据 的 一 个 快照 ， 其 他 用 户 对 记录 所 做 的 
静态 增加 、 删 除 或 修改 的 记录 都 无 法 反映 到 记录 集中 。 静 态 


游标 支持 向 前 或 向 后 移动 
- 旦 打开 RecordSet 对 象 ， 就 不 能 改变 CursorType 属性 。 但 是 关闭 Recordset( 采 用 关 

闭 方式 ) 对 象 后 可 以 改变 CursorType 属性 ， 然 后 重新 打开 RecordSet 对 象 ， 那 么 就 可 以 有 效 
地 改变 它 的 类 型 。 

注意 : 

用 户 可 依据 需求 ， 指 定 CursorType 为 上 述 指针 中 的 任何 一 种 ， 如 省 略 则 取 其 默认 值 
adOpenForwardOnly。 这 是 功能 最 少 的 记录 集 ， 耗 费 的 资源 也 最 少 。 

以 上 几 个 游标 类 型 将 直接 影响 到 Recordset 对 象 所 有 的 属性 和 方法 ， 当 显示 一 个 表 时 ， 
不 同 的 指针 类 型 将 会 影响 到 这 个 表 的 属性 和 方法 ， 如 表 10-4 所 示 。 


表 10-4 ”游标 类 型 对 Recordset 属性 的 影响 


Recordset 属性 adOpenForwardOnt adOpenDynamic | adOpenStatic 
AbsolutePage 不 支持 可 读 写 可 读 写 
AbsolutePosition 不 支持 不 支持 可 读 写 可 读 写 
BOF 只 读 只 读 只 读 
CursorType 可 读 写 可 该 写 可 读 写 
EOF 只 读 只 读 只 读 
Filter 可 读 写 可 读 写 可 读 写 
LockTyp 可 读 写 可 读 写 可 读 写 
PageCount 不 支持 不 支持 只 读 只 读 
pageSize 可 读 写 可 该 写 可 读 写 
RecordCount 不 支持 不 支持 只 读 只 读 
AddNew 支持 支持 支持 支持 
CancelBatch 支持 支持 支持 支持 
CancelUpdate 支持 支持 支持 支持 
Close 支持 支持 支持 支持 
Delete 支持 支持 支持 支持 
Move 不 支持 支持 支持 支持 
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( 续 表 ) 
Recordset 属性 adOpenForwardOnt adOpenStatic 
MoveFirst 支持 支持 
MoveLast 不 支持 支持 
MoveNext 支持 支持 
MovePrevious 不 支持 支持 
Open 支持 支持 
Update 支持 支持 
UpdateBatch 支持 支持 
以 下 代码 使 用 一 个 Connection 对 象 objConn 和 前 向 游标 打开 了 一 个 记录 集 : 

<% 

database="db1.mdb" 

"定义 数据 库 的 驱动 程序 和 物理 路 径 


StrConnect="Driver={Micrsoft Access Driver(*.mdb)}";_ 
DBQ="&Server.MapPath(database)" 

"创建 Connection 对 象 

Set objConn=Server.CreateObject("ADODB.Connection") 

objConn.Open StrConnect 

Set rs=Server.CreateObject("ADODB.RecordSet") 

' 从 数据 库 中 读 取 所 有 记录 ， 并 保存 在 rs 中 

Is.Open"Select*from Record".objConn.adOpenForwardOnly 

Te.Close 

objConn.Close 

%> 


效果 如 图 10-4 所 示 (在 操作 本 实例 前 ， 用 户 应 结合 本 书 第 9 章 所 介绍 的 内 容 创 建 搜索 页 面 
的 数据 库 并 输入 数据 )。 
(1) 创建 一 个 名 称 为 “链接 查询 .asp” 的 网 页 ， 其 代码 如 下 所 示 : 


<%@ Language=VBScript %> 
<% Response.Buffer = True %> 
<HITML> 
<TITLE> 图 书 查询 </TITLE> 
<HEAD> 
<SCRIPT Language="VBScript" RUNAT="Server"> 
Sub rs_Display0O 
dim strConn.strSQL.strBookName 
strBookName = Request.Form("BookName") 
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Set conn=Server.CreateObject("ADODB.Connection") 
strConn="Driver={SQL Server}:Database=booknet:&- 
Server=ZHANGSHIHUA\TEST:UID=sa:PWD=:" 
conn.Open strConn 
strSQL = "SELECT * FROM Books" 
strSQL = strSQL & " WHERE BookName LIKE '%" & Trim(strBookName) & "%" 
strSQL = strSQL & "ORDER BY BookName" 
Set rs = Server.CreateObject("ADODB.Recordset") 
TS.Open strSQL.conn 
With Response 
if Irs.EOF then 
-Write "没有 查询 到 相关 的 记录 ! " 
else 
.Write " <TABLE BORDER=1 CELLSPACE=0 CELLPADDING=5>" &_ 
"<TR HEIGHT=12><TD WIDTH=20><B> BookID </B></TD>" &_ 
"<TD WIDTH=270><B> 书 名 </B></TD>"&_ 
"<TD WIDTH=200><B> 作者 </B></TD>"&_ 
"<TD WIDTH=40><B> 价格 </B></TD>"&_ 
"<TD WIDTH=40><B> 修改 <B></TD>"&_ 
"<TD WIDTH=40><B> 删除 </B></TD></TR>" 
endif 
do Until rs.EOF 
.Write "<TR HEIGHT=12><TD WIDTH=20>" & rs("BookID") & "</TD>" &_ 
"<TD WIDTH=270>" & rs("BookName") & "</TD>" &_ 
"<TD WIDTH=200>" & rs("Writer"”) & "</TD>" &_ 
"<TD WIDTH=40>" & rs("Price") & "</TD>" &_ 
"<TD WIDTH=40><A HREF=" & chr(34) & "10-5- 编 辑 页 面 .asp?BookID=" &_ 
Is("BookID") & "" & chr(34) & ">" & "编辑 " & "</A></TD>" &_ 
"<TD WIDTH=40><A HREF=" & chr(34) & "10-6- 删 除 .asp?BookID=" &_ 
IS("BookID") & "" & chr(34) & ">" 有 & "删除 " & "</A></TD>" &_ 
"TR>" 
Is.MoveNext 
loop 
.Write “</TABLE>" 
End With 
ITS.Close 
conn.Close 
end sub 
</SCRIPT> 
<BODY> 
<Center><H4> 带 超 链 接 的 图 书 查 询 页 面 </H4> 
<Hr> 


“212- ASP 动态 网 站 开发 基础 教程 (第 4 版 ) 


<FORM NAME="thisForm" METHOD=POST 
ACTION="<%=Request.ServerVariables("Script Name")%>" > 
<P> 请 输入 书 名 :<INPUT TYPE="text" NAME="BookName" SIZE=20> 
<INPUT TYPE="submit" NAME="btnSubmit" value=" 查 找 "> 
<INPUT TYPE="reset" NAME="btnReset" value=" 重 置 "> 
<INPUT TYPE="button" NAME="btnInsert" value=" 插 入 "&- 
onclick="location.hre 伍 "10-7- 插 入 页 面 .htm"> 

<Pp> 

</FORM> 

<% 
callrs DisplayO 

%> 

<HR> 

</Center></BODY></HTML> 


(2) 运行 “链接 查询 .asp” 的 网 页 后 ， 用 户 不 仅 能 根据 图 书 的 名 称 在 数据 库 中 搜索 符合 条 


件 的 图 书 ， 还 可 以 链接 到 相应 的 页 面 对 页 面 记录 进行 编辑 和 删除 操作 ， 如 图 10-4 所 示 。 
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图 10-4 编辑 和 删除 操作 的 页 面 记录 列表 
10.2.2 ”锁定 类 型 


锁定 类 型 (LockType) 是 针对 数据 库 操作 中 并 发 事件 的 发 生 而 提出 的 系统 安全 控制 方 
式 。 锁 定 类 型 不 仅 影响 Recordset 对 象 的 并 发 事件 的 控制 处 理 方式 ， 而 且 决定 了 记录 集 是 
和 否 能 更 新 以 及 记录 集 的 更 新 是 否 能 批量 地 进行 。 

打开 记录 集 时 ， 可 以 在 Open 方法 中 指定 锁定 类 型 ， 或 者 在 调用 Open 方法 前 用 
LockType 属性 来 设置 锁定 类 型 。 锁 定 类 型 的 取 值 与 相关 说 明 ， 如 表 10-5 所 示 。 
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表 10-5 锁定 类 型 (LockType) 
说 ”了 明 

以 只 读 方式 打开 记录 集 时 ， 不 能 改变 任何 数据 ， 只 读 方式 是 
默认 的 锁定 方法 
当 编辑 时 立即 锁定 记录 ， 这 是 最 安全 的 锁定 方法 
数据 提供 者 只 有 在 调用 Update 方法 时 才 锁 定 记录 ， 而 在 此 之 
前 其 他 操作 者 仍 可 对 当前 记录 进行 增加 、 删 除 或 修改 等 操作 
当 编 辑 记录 时 记录 不 会 被 锁定 ， 而 增加 、 删 除 或 修改 记录 是 
在 批 处 理 方式 下 完成 的 

如 果 数 据 源 没有 返回 记录 ， 那 么 提供 者 将 BOF 和 EOF 属性 同时 设置 为 True， 并 且 不 
定义 当前 记录 位 置 。 如 果 游 标 类 型 允许 ， 仍 然 可 以 将 新 数据 添加 到 该 室 Recordset 对 象 。 

注意 : 

锁定 类 型 的 设 定 会 影响 数据 的 修改 程序 ， 若 是 没有 指定 锁定 类 型 则 将 会 返回 一 个 默认 
只 读 的 记录 集 对 象 ， 其 中 的 数据 将 无 法 被 修改 


10.2.3 浏览 记录 


只 读 adLockReadOnly 


保守 式 “| adLockPessimistic 


开放 式 | adLockOptimistic 


开放 式 ”| adLockBatchOpti 
批 处 理 “| mistic 


记录 集 对 象 引用 Open 方法 成 功 之 后 ，SQL 语句 所 取得 的 数据 复 本 会 储存 在 记录 集 对 
象 之 中 ， 此 时 的 记录 集 对 象 类 似 一 个 包含 特定 数据 的 原始 数据 表 ， 例 如 以 下 的 程序 片段 : 
ObjRst.Open "select * from Customers "."dsn=test:" 

这 段 程序 代码 返回 的 记录 集 对 象 ObjRst， 实 际 上 就 是 Customers 数据 表 的 内 容 ， 可 以 
通过 移动 记录 集 对 象 的 指针 ， 浏 览 数据 表 中 每 一 条 记录 的 特定 字段 内 容 。 

指针 总 是 指向 记录 集 当前 的 数据 位 置 ，Recordset 对 象 提供 4 个 重要 的 数据 浏览 方法 : 
MoveFirst、MovePrevious、MoveNext 和 MoveLast， 分 别 将 当前 指针 移 到 记录 集 的 首 记录 、 
前 一 个 记录 、 后 一 个 记录 和 末 记 录 ， 如 图 10-5 所 示 。 

BOF 才 一 一 一 一 一 一 一 一 一 一 数据 集 开始 位 置 

B00001 ASP. ET 数据 库 高 级 教程 CC# 篇 ] < 一 一 MoveFirst 
B00002 ASP 网 络 应 用 系统 分 析 
B00003 ”ASP 编程 基 础 及 应 用 教程 
B00008 ASF 编程 基础 
B00004 ASP. NET 2.0 大 揭 密 
B00005 AS? 信息 系统 设计 与 开发 实例 
B00006 ”ASF & ASP. NET 应 用 编程 150 例 ”所 一 一 一 一 一 MovePrevious 
B00007 asp. netPRD 2002-2003 中 文 精华 志 一 一 一 一 一 指针 当前 位 置 
B00009 ”网 页 制作 ASP 培 训 教 程 二 MoveNex 
800010 深入 网 络 编程 


B00011 网 络 编程 基础 
B00012 ASP 基 础 教程 Move 


EOF 寺 一 一 一 一 一 一 一 一 一 一 数据 集结 束 位 置 


图 10-5 指针 的 移动 
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当 指 针 位 于 记录 集 的 结束 位 置 ， 则 函数 EOF 的 返回 值 为 True， 和 否则 为 Flase。 对 于 查 
询 返 回 的 记录 集 对 象 ， 其 默认 的 指针 位 置 为 首 记 录 。 通 过 指定 数据 对 象 的 字段 名 称 ， 可 以 
取得 记录 集 当 前 指针 位 置 所 在 的 这 条 记录 中 的 字段 内 容 。 

记录 集 在 浏览 记录 时 会 受到 其 打开 时 候 所 指定 的 游标 类 型 的 限制 。 例 如 ， 一 个 设 定 为 
adOpenForwardOnly 的 记录 集 ， 只 能 往 前 移动 ， 因 此 引用 MoveFirst 或 是 MovePrevious 将 
会 引发 不 允许 操作 的 错误 。 而 adOpenDynamic 则 拥有 最 大 的 自由 度 ， 可 以 随意 引用 任何 一 
个 方法 浏览 记录 集 。 

如 图 10-2 所 示 ， 有 两 个 标示 为 BOF 和 EOF 的 特殊 指针 位 置 ， 分 别 代表 记录 集 开 始 与 
结束 的 位 置 ， 这 两 个 位 置 只 是 一 个 空 值 。 当 指针 已 经 移动 至 首 记 录 时 ， 使 用 MovePrevious 
可 以 达到 BOF 的 位 置 ， 反 之 引用 MoveLast， 可 以 将 指标 移 到 EOF 。 

记录 集 对 象 提供 了 BOF 和 EOF 属性 ， 用 来 判断 当前 指针 是 否 位 于 记录 集 的 开始 或 结 
束 的 位 置 ， 因 此 在 应 用 程序 中 ， 通 常 都 会 通过 查看 记录 集 对 象 的 BOF 或 是 EOF 属性 值 是 
否 为 True， 以 了 解 指针 是 否 位 于 记录 集 的 开头 或 是 结束 的 位 置 ， 代 码 如 下 : 


blnEof = objRst EOF 


10.2.4 添加 记录 


添加 记录 有 两 种 方法 : 一 种 是 用 SQL INSERT INTO 语句 ; 另 一 种 是 用 Recordset 对 象 
的 AddNevw 方法 。 
如 果 用 户 希 望 在 数据 库 特定 表 中 添加 一 条 记录 ， 则 必须 使 用 INSERT 语句 ，INSERT 
语句 的 语法 结构 如 下 : 
INSERT INTO 表 名 [( 字 段 名 称 1 [, 字段 名 称 2[. .…]])] 
VALUES (数据 1 [, 数据 2[..…]]) 


在 使 用 INSERT 语句 添加 数据 时 必须 注意 以 下 几 点 : 

e 表 名 后 括号 内 的 字段 名 称 的 排列 顺序 与 VALUES 后 括号 内 数据 的 排列 顺序 必须 一 
致 ， 否 则 进行 数据 添加 时 会 失败 。 

e 对 未 设置 的 字段 ， 添 加 数据 时 其 默认 值 为 Null。 

e 对 于 新 添加 的 数据 记录 ， 在 建立 时 就 给 予 其 默认 值 ， 而 值 为 Null。 

【 例 10-3】 打 开 一 个 Recordset 对 象 ， 然 后 用 AddNew 方法 插入 一 条 空 记录 ， 填 充 空 记 

录 的 各 个 字段 ， 再 调用 Update 方法 把 记录 写 到 数据 库 中 ， 程 序 运 行 效果 如 图 10-6 所 示 。 

(1) 确定 adovbs.inc 文件 在 应 用 程序 的 当前 目录 中 。 

(2) 建立 显示 添加 记录 内 容 的 页 面 元 素 的 “添加 记录 .html” 文 件 ， 代 码 如 下 : 
<html><head><title> 添 加 一 条 新 记录 </title></head> 
<body> 


<Center><H4> 添 加 一 条 新 记录 </H4></Center> 
<Hr> 
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<FORM Method=POST Action=" 添 加 记录 .asp" > 
<table border="0" width="100%"> 
<tr><td align="right" width="20%"><B> 书 名 ; </B></td> 
<td width="80%"><input type="text" name="BookName" size=50> 
<Font color=Red> ** 必 须 输入 **</Color></td></tr> 
<tr><td align="right"><b> 作 者 : </b></td> 
<td><input type="text" name="Writer" size=30></td></tr> 
<tr><td align="right"><b> 出 版 社 : </b></td> 
<td><input type="text" name="Press" size=50></td></tr> 
<tr><td align="right"><b> 出 版 日 期 ， <b></td> 
<td><input type="text" name="PublishDate" size=10></td></tr> 
<tr><td align="right"><b> 定 价 : </b></td> 
<td><input type="text" name="Price" size=10></td></tr> 
<tr><td align="right"><b> 内 容 简 介 : </b></td> 
<td> <TEXTAREA COLS=50 ROWS=4 name="Statement"></TEXTAREA></td></tr> 
<tr><td align="right"><b> 类 别 : </b></td> 
<td><input type="text" name="category" size=10></td></tr> 
<tr><td align="right"><b> 子 类 : </b></td> 
<td><input type="text" name="SubCategory" size=10></td></tr> 
<tr><td align="right"><b> 库 存量 : </b></td> 
<td><input type="text" name="Quantity" size=10></td></tr> 
<tr><td COLSPAN=2 ALIGN=Center> 
<input type="submit" value=" 保 存 "> 
<input type="reset" value=" 重 置 "> 
<input type="button" value=" 返 回 " onclick="location.href='index.asp"></td></tr> 
</table> 
</FORM> 
</body></html> 


(3) 建立 处 理 添加 记录 内 容 程序 的 “添加 记录 .asp” 文 件 。 


<%@ Language=VBScript %> 
<!--#include file="adovbs.inc"--> 
<% 
if IsSNumeric(Request.Form("Quantity")) and _ 
IsNumeric(Request.Form("Price")) and _ 
IsDate(Request.Form("PublishDate")) then 
strConn="Driver={SQL Server}:Database=booknet:&- 
Server=ZHANGSHIHUA\TEST:UID=sa:PWD=:" 
Set rs = Server.CreateObject("ADODB.Recordset") 
rs.CursorType = adOpenKeyset 
Is.LockType = adLockOptimistic 
Is.Open "Books".strConn...adCmdTable 
TS.AddNew ' 添 加 一 条 新 记录 
Is("BookID") " & Zeros(5-len(rs.RecordCount + 1)) & CStr((rs.RecordCount + 1)) 
Is("BookName") = Trim(Request.Form("BookName")) 
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Is("Writer") = Trim(Request.Form("Writer")) 
Is("Press") = Trim(Request.Form("Press")) 
Is("PublishDate") = CDate(Trim(Request Form("PublishDate"))) 
Is("Statement") = Trim(Request.Form("Statement")) 
Is("Category") = Trim(Request.Form("Category")) 
Is("SubCategory") = Trim(Request.Form("SubCategory")) 
rs("Quantity") = CInt(Trim(Request Form("Quantity"))) 
Is("Price") = CCur(Trim(Request.Form("Price"))) 
if rs.Supports(adUpdate) then 
Is.Update 
Response.Redirect(" 添 加 记录 .html") 
endif 
TS.Close 
else 
Response.Write "输入 的 数量 、 价 格 、 出 版 日 期 中 有 错 ， 请 重新 输入 ! " 
endif 
%> 
<SCRIPT Language="VBScript" RUNAT="Server"> 
Function Zeros(intNum) 
Dim LstrOut 
forI=1 to intNum 
strOut = strOut & "0" 
next 
Zeros = strOut 
End Function 
</SCRIPT> 


(4) 运行 程序 后 ， 效 果 如 图 10-6 所 示 。 用 户 可 以 通过 该 页 面向 数据 库 中 添加 记录 。 
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添加 记录 .html 代码 
10-6 网 页 效果 


10.2.5 ”更 新 记录 


有 两 种 方法 可 对 记录 进行 更 新 ， 一 种 是 用 SQL UPDATE 语句 修改 记录 ， 另 一 种 是 用 
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Recordset 对 象 的 Update 方法 修改 记录 。 
要 更 新 数据 库 中 的 记录 ， 游 标 类 型 应 设置 成 动态 ， 更 新 数据 使 用 UPDATE 语句 ， 其 基 
本 语法 如 下 : 


UPDATE 表 名 
SET 字段 1= 数 据 1, 字段 2= 数 据 2.… 
WHERE 筛选 条 件 


更 新 操作 有 以 下 3 种 情况 。 

e 所 有 记录 全 部 更 新 : 可 以 对 表 中 所 有 的 记录 同时 进行 内 容 的 更 新 。 

e 不 更 新 索引 键 值 而 只 更 新 其 他 字段 的 内 容 : 仅仅 更 新 每 一 条 记录 内 的 非 索引 字段 内 容 。 

e 更 新 索引 键 值 : 必须 连带 地 更 新 其 他 表 中 相关 联 的 记录 内 容 。 

【 例 10-4】 打 开 一 个 记录 集 ， 然 后 更 改 其 数据 ， 再 调用 Update 或 UpdateBatch 方法 把 
所 作 的 更 改写 入 到 数据 库 中 。 程 度 进 行 效果 如 图 10-7 所 示 。 

(1) 确定 adovbs.inc 文件 在 应 用 程序 的 当前 目录 中 。 

(2) 建立 显示 和 处 理 修改 记录 内 容 页 面 的 “更 新 记录 .asp” 文 件 ， 其 代码 如 下 所 示 : 


<9%Q@ Language=VBScript %> 
<!--#include file="adovbs.inc"--> 
<% Response.Buffer = True %> 
<SCRIPT Language="VBScript" RUNAT="Server"> 
Dim rs 
Dim conn 
Dim strBookID 
sub Get _ RecordO 
strBookID = Request.QueryString("BookID") 
' 创 建 Connection 对 象 conn 
Set conn=Server.CreateObject("ADODB.Connection") 
' 使 用 DSN 建立 conn 与 数据 库 的 连接 
strConn="Driver={SQL 
Server}:Database=booknet:Server=ZHANGSHIHUA\TEST:UID=sa:PWD=:" 
conn.Open strConn 
strSQL = "SELECT * FROM Books " 
strSQL = stSQL&" WHERE BookID =" & Trim(strBookID) 
Set rs = Server.CreateObject("ADODB.Recordset") 
Is.Open strSQL.conn 
End sub 
sub Update_RecordO 
if IsNumeric(Request.Form("Quantity")) and _ 
IsNumeric(Request.Form("Price")) and _ 
IsDate(Request.Form("PublishDate")) then 
Setrs = Server.CreateObject("ADODB.Recordset") 
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Is.CursorType = adOpenStatic 
TS.LockType = adLockOptimistic 
strConn="Driver={SQL 
Server}:Database=booknet:Server=ZHANGSHIHUA\TEST:UID=sa:PWD=:" 
strSQL = "SELECT * FROM Books" 
strSQL = strSQL & " WHERE BookID =" & Trim(strBookID) 
Is.Open strSQL.strConn...adCmdText 
ifrsEOF then 
Response.Write "没有 查询 到 相关 的 记录 ! " 
Exit sub 
endif 
if rs.Supports(adUpdate) then 
Is("BookName") = Trim(Request.Form("BookName")) 
Is("Writer") = Trim(Request.Form("Writer")) 
Is("Press") = Trim(Request.Form("Press")) 
rs("PublishDate") = CDate(Trim(Request.Form("PublishDate"))) 
Is("Statement") = Trim(Request.Form("Statement")) 
Is("Category") = Trim(Request.Form("Category")) 
Is("SubCategory") = Trim(Request.Form("SubCategory")) 
Is("Quantity") = CInt(Trim(Request.Form("Quantity"))) 
Is("Price") = CCur(Trim(Request.Form("Price"))) 
Is.Update 
if conn.Errors.Count > 0 then 
Response.Write "Transacton Error" 
else 
Response. Write "Transacton Ok" 
endif 
Response.Redirect("index.asp") 
else 
Response.Write "没有 能 够 更 新 数据 ! " 
endif 
Ts.Close 
else 
Response.Write "输入 的 数量 、 价 格 、 出 版 日 期 中 有 错 ， 请 重新 输入 ! " 
endif 
Is.Close 
conn.Close 
Set rs = Nothing 
Set conn = Nothing 
end sub 
Function Zeros(intNum) 
Dim LstrOut 
forI= 1 to intNum 
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strOut = strOut & "0" 
next 
Zeros = strOut 
End Function 
</SCRIPT> 
<html><head><title> 修 改 一 条 现 有 记录 </title></head> 


(3) 运行 index.asp 文件 ， 单 击 记录 后 的 “编辑 ” 超 链接 ， 执 行 记录 的 编辑 操作 ， 如 图 
10-7 所 示 。 


rT es 


图 10-7 更 新 记录 


10.2.6 ”删除 记录 


有 两 种 方法 可 对 记录 进行 更 新 ， 一 种 是 用 SQL DELETE 语句 删除 记录 ， 另 一 种 是 用 
Recordset 对 象 的 Delete 方法 删除 记录 。 
使 用 DELETE 语句 时 在 表 中 删除 一 条 记录 ， 必 须 特 别 注意 ， 一 旦 数据 被 删除 ， 将 无 法 恢 
复 。 如 果 没 有 指定 Where 子 句 ， 将 删除 表 中 的 所 有 记录 。 以 下 是 DELETE 语句 的 语法 结构 : 
DELETE FROM 表 名 WHERE 筛选 条 件 


【 例 10-5】 打开 一 个 记录 集 ， 然 后 用 Delete 方法 删除 其 中 的 记录 ， 程 序 运行 效果 如 图 
10-8 所 示 。 
(1) 创建 删除 记录 页 面 的 “删除 记录 .asp” 文 件 ， 其 代码 如 下 所 示 : 


<% 

strBookID = Request.QueryString("BookID") 

Set conn=Server.CreateObject("ADODB.Connection") 

strConn="Driver={SQL Server}:Database=booknet:Server=ZHANGSHIHUA\TEST:UID=sa:PWD=:" 
conn.Open strConn 

strSQL = "DELETE FROM Books" 

strSQL = strSQL & " WHERE BookID =" & Trim(strBookID) 

conn.Execute strSQL..adCmdText + adExecuteNoRecords 
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conn.Close 
Response.Redirect("index.asp") 
%> 


(2) 运行 index.asp 文件 ， 单 击 某 记 录 后 的 “删除 ” 超 链接 以 进入 删除 记录 的 操作 页 面 。 
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图 10-8 删除 记录 


10.2.7 ”Supports 方法 


Supports 方法 用 来 判断 Recordset 对 象 是 否 支持 特定 的 功能 ， 其 语法 结构 如 下 : 
Recordset. Supports(CursorOptions) 
参数 CursorOptions 的 取 值 与 相关 说 明 ， 如 表 10-6 所 示 。 


表 10-6 ”Supports 方法 参数 CursorOptions 的 取 值 


常 量 名 值 说 了 明 
adAddNew 16778240 确定 是 否 支持 AddNew 方法 
adApproxPosition 16384 确定 是 否 可 以 读 写 AbsolutePage 和 AbsolutePosition 属性 
adBookMark 8192 确定 是 否 支持 BookMark 属性 
adDelete 16779264 确定 是 否 支持 Delete 方法 
Ne 5 确定 是 否 可 以 提交 所 有 待定 修改 并 释放 所 有 当前 保留 记 

录 ， 而 取 回 更 多 的 记录 或 改变 下 一 次 取 回 的 记录 

adMovePrevious 512 确定 是 否 支持 Move、MoveFirst、MovePrevious 方法 
adRecync 131072 确定 是 否 支持 Recync 方法 
adUpdate 16809984 确定 是 否 支持 Update 方法 
adUpdateBatch 65536 确定 是 否 支持 UpdateBatch 方法 


例如 ， 以 下 脚本 用 于 判断 记录 集 是 否 支持 更 新 、 删 除 或 新 增 记录 : 


<%lf rst.Supports(adUpdatetadDeletetadAddNew) Then%> 
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如 果 记 录 集 支持 的 功能 与 参数 CursorOption 指定 的 一 致 ， 返 回 True， 和 否则 返回 False。 
虽然 Supports 方法 可 以 对 一 个 指定 的 功能 返回 True, 但 数据 提供 者 不 能 保证 在 所 有 环境 下 
这 些 功能 都 是 可 用 的 。 


10.2.8 Status 属性 


Status 属性 是 当前 记录 集 的 状态 标志 ， 这 些 标 志 在 记 录 被 更 改 、 删 除 、 插 入 和 改变 位 
置 时 会 受到 影响 。Status 属性 的 取 值 及 其 相关 说 明 ， 如 表 10-7 所 示 。 


表 10-7_Status 属性 的 取 值 


常 量 名 说 明 
adRecOK 记录 更 新 成 功 
adRecNew, 当前 记录 是 新 的 ， 并 且 还 没有 更 新 到 数据 库 
adRecModified 当前 记录 被 修改 ， 并 且 还 没有 更 新 到 数据 库 
adRecDeleted 当前 记录 被 删除 
adRecUnmodified 当前 记录 未 被 修改 
adRecInvalid 书签 是 无 效 的， 记录 未 被 更 新 


adRecMutipleChanged 


更 改 会 影响 到 多 条 记录 ， 记 录 未 被 更 新 


adRecPendingChanged 涉及 未 确定 的 插入 ， 记 录 未 被 更 新 


adRecCanceled 操作 被 取消 ， 记 录 未 被 更 新 
adRecCantRelease 1024 记录 被 锁定 ， 无 法 进行 更 新 
adRecConcurrencyViolation 204 记录 处 于 开放 式 锁定 之 中 ， 无 法 进行 更 新 
adRecIntegrityViolation 09 用 户 违 反 完整 性 规则 ， 无 法 进行 更 新 
adRecMaxChangeExceeded 8192 存在 太 多 的 不 确定 更 改 ， 无 法 进行 更 新 
adRecObjectOpen 16384 与 一 个 打开 的 存储 过 程 冲突 ， 无 法 进行 更 新 
adRecOutOfMemo 32768 内 存 不 够 ， 无 法 进行 更 新 
adRecPermissionDenied 65536 用 户 没有 足够 权限 ， 无 法 进行 更 新 
adRecSchemaViolation 131072 低层 数据 库 会 被 破坏 ， 记 录 没 有 更 新 
adRecDBDeleted 262144 记录 已 从 数据 源 中 删除 


全 » + | |- |= 
A 
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10.2.9 分 页 显示 


Recordset 对 象 提供 了 PageSize、PageCount 和 AbsolutePage 等 属性 ， 用 来 对 记录 集 实 
现 分 页 显示 功能 。 其 中 ，PageCount 属性 确定 记录 集中 包含 多 少 页 的 记录 ，PageSize 属性 
确定 每 页 显示 的 记录 数 ，AbsolutePage 属性 确定 当前 记录 位 于 哪 一 页 上 。 

【 例 10-6] 按 照 记录 的 先后 顺序 , 分 页 显示 数据 库 中 表 的 内 容 , 程序 运行 效果 如 图 10-9 
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所 示 。 
(1) 确定 adovbs.inc 文件 在 应 用 程序 的 当前 目录 中 。 
(2) 建立 显示 和 处 理 分 页 表 中 内 容 页 面 的 “- 分 页 显示 .asp” 文 件 。 


<%@ Language=VBScript %> 
<% Response.Buffer = True 9%> 
<!--#include file="adovbs.inc"--> 
<% 
Response.Expires =0 
Dim strConn.strSQL 
Dim intCurintTotalI 
Dim connrs 
Const intPageSize = 5 
if Request.ServerVariables("CONTENT LENGTH")=0 then 
intCur=1 
else 
intCur = CInt(Request.Form("CurPage")) 
Select Case Request.Form("Page") 
Case "首页 " 
intCur=1 
Case "上 一 页 
intCur = intCur - 1 
Case "下 一 页 " 
intCur = intCur + 1 
Case " 尾 页 " 
intCur = CInt(Request.Form("LastPage")) 
End select 
endif 
Set conn=Server.CreateObject("ADODB.Connection") 
strConn="Driver={SQL Server} :Database=booknet:Server=ZHANGSHIHUA\TEST:UID=sa:PWD=:" 
conn.Open strConn 
strSQL = "SELECT * FROM Books" 
Set rs = Server.CreateObject("ADODB.Recordset") 
Is.CursorLocation = adUseClient 
rs.CursorType = adOpenStatic 
TS.CacheSize = intPageSize 
TS.Open strSQL.conn 
TS.PageSize = intPageSize 
If Not rs.EOF then 
Is.AbsolutePage = intCur 
endif 
intTotal = rs.PageCount 
9%> 
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图 10-9 分 页 显示 


10.3 认识 Fields 集合 与 Field 对 象 


每 个 Recordset 对 象 都 包含 一 个 Fields 集合 , 该 集合 用 来 处 理 记 录 集 中 的 字段 。 记录 集 
中 返回 的 每 个 字段 在 Fields 集合 中 都 有 一 个 对 应 的 Field 对 象 。 通 过 Field 对 象 ， 可 访问 字 
段 名 、 字 段 类 型 、 字 段 值 等 信息 。 


10.3.1 Fields 集合 简介 
Fields 集合 只 有 一 个 Count 属性 和 一 个 Item 方法 .Count 属性 返回 记录 集中 字段 (Fields 
对 象 ) 的 个 数 ，Item 方法 用 于 建立 某 一 个 Field 对 象 。 
1. Fields 集合 的 属性 
Fields 集合 只 有 一 个 Count 属性 ， 该 属性 返回 记录 集中 字段 (Fields 对 象 ) 的 个 数 ， 其 使 
用 方法 为 : 
Var=Recordset 对 象 Fields.Count 
Var 的 值 为 字段 的 个 数 。 如 下 例 将 使 用 脚本 列 出 当前 记录 中 每 个 字段 的 值 。 
For I=0 To rstFieldsCount-1 


Response.Write rst(D&"<Br>" 
Next 


2. Fields 集合 的 方法 


Fields 集合 只 有 一 个 Item 方法 ， 该 方法 用 于 建立 某 一 个 Field 对 象 ， 其 使 用 方法 为 : 
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Set Field 对 象 =Recordset 对 象 Fields Item( 字 段 名 或 字段 索引 值 ) 


其 中 ， 字 段 索引 值 是 根据 记录 集中 的 先后 顺序 排序 ， 从 0 到 FieldsCount - 1。 如 下 例 
将 通过 名 字 或 序号 返回 相关 的 字段 的 值 ; 


TS.Fields.Item (2) 
TS.Fields.Item ("Writer") 


Item 方法 是 Fields 集合 的 默认 方法 , 而 Fields 集合 是 Recordset 对 象 的 默认 集合 .因此 ， 
Item 和 Fields 可 省 略 ， 如 上 例 可 简化 书写 为 : 


TS (2) 
TS ("Writer") 


10.3.2 ”Fields 对 象 简介 


下 面 将 简单 介绍 Fields 对 象 的 属性 和 方法 。 
1. Fields 对 象 的 属性 
Fields 对 象 的 属性 及 其 说 明 ， 如 表 10-8 所 示 。 


表 10-8 ”Field 对 象 的 属性 
属 性 
ActualSize 返回 字段 的 实际 长 度 
返回 字段 的 特征 ， 可 取 下 列 值 之 一 或 组 合 
4 2 或 adFldMayDefer: 只 有 在 明确 指明 要 取 这 个 字段 时 ， 该 字段 的 值 才 从 
数据 源 返 回 
4 或 adFldUpdatable: 字段 可 更 新 
8 或 adFldUnknownUpdatable: 无 法 确定 字段 是 否 可 更 新 
16 或 adFldFixed: 字段 包含 固定 长 度 的 数据 
32 或 adFldIsNullable: 字段 可 以 接受 空 值 ， 可 用 于 检测 非 空 字段 
64 或 adFldMayBeNull: 可 以 从 该 字段 读 取 空 值 
128 或 adFldLong: 字段 类 型 为 长 整 型 
256 或 adRowID: 字段 是 一 个 行 标识 符 
512 或 adFldRowVersion: 字段 包含 跟踪 更 新 日 期 和 时 间 的 标记 
4096 或 adFldCacheDeferred: 数据 源 将 字段 放 入 高 速 缓存 中 
用 法 : ifrs("Writer").Attributes and adFldIsNullable then… 
即 若 字段 允许 接受 空 值 ， 则 执行 此 段 代 码 
返回 字段 的 定义 大 小 ， 如 rs("Writer).DefinedSize 


Attributes 


ee we 9 4 


DefinedSize 
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( 续 表 ) 
属 性 说 阴 
Name 返回 数据 库 中 字段 的 名 字 
NumerucScale 说 明 字段 的 小 数 部 分 需要 多 少 个 数字 位 
Precision 说 明 字段 的 值 需 要 多 少 个 数字 位 
OriginalValue 返回 字段 修改 前 的 值 
UnderlyingValue 从 数据 库 返 回 字段 的 当前 值 
Type 字段 的 数据 类 型 
Value 返回 字段 的 值 


2. Fields 对 象 的 方法 


Fields 对 象 有 AppendChunk 和 GetChunk 两 个 方法 。AppendChunk 方法 用 于 将 大 块 文 
本 和 二 进 制 数据 写 到 字段 中 。 当 系 统 内 存 有 限时 , 可 用 AppendChunk 方法 将 数据 分 块 写 入 ， 
而 不 用 一 次 将 数据 完全 添加 进去 。 该 方法 的 使 用 方法 如 下 : 
ObjectLAppendChunk Data 


其 中 , Data 是 待 写 入 字段 中 的 数据 。 每 次 后 续 的 AppednChunk 调用 总 是 把 数据 添加 到 
己 有 数据 的 后 面 。 如 果 正 在 添加 数据 到 一 个 字段 中 , 同时 又 去 操作 当前 记录 的 其 他 字段 值 ， 
则 ADO 会 认为 对 这 个 字段 添加 数据 的 操作 已 完成 。 此 时 , 再 对 这 个 字段 调用 AppendChunk 
方法 ，ADO 会 认为 是 一 个 新 的 AppendChunk 调用 ， 并 有 履 盖 掉 已 有 的 数据 。 

GetChunk 方法 从 字段 中 获取 大 块 文本 或 二 进 制 数据 的 部 分 或 全 部 内 容 。 当 系统 内 存 有 
限时 ， 可 用 GetChunk 方法 将 数据 分 块 读 出 ， 而 不 用 一 次 全 部 读 出 来 。 该 方法 的 使 用 方法 
如 下 : 

Object.GetChunk(Size) 


其 中 ，Size 是 待 获取 的 字 节 数 或 字符 数 。 如 果 Size 比 余下 的 数据 大 ，GetChunk 方法 
仅 返 回 剩余 的 数据 ; 如果 字 段 是 空 的 ， 则 返回 Null。 

每 次 后 续 的 GetChunk 方法 调用 总 是 从 前 一 次 调用 结束 的 位 置 开 始 。 但 如 果 正 从 一 个 
字段 读 取 数据 ， 然 后 又 去 操作 当前 记录 的 另 一 个 字段 的 值 ， 则 ADO 会 认为 这 个 字段 的 读 
取 数 据 的 操作 已 完成 。 此 时 ， 再 对 这 个 字段 调用 GetChunk 方法 ，ADO 会 认为 是 一 个 新 的 
GetChunk 调用 ， 即 重新 从 开始 位 置 读 起 。 


注意 : 
当 Field 对 象 的 Attribute 属性 的 adFldLong 被 置 为 True 时 ,可 在 该 字段 上 使 用 GetChunk 
和 AppendChunk 方法 。 
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10.4 认识 Errors 集合 与 Error 对 象 


涉及 ADO 对 象 的 操作 可 能 产生 一 个 或 多 个 错误 ， 这 些 错 误 都 和 数据 提供 者 有 关 。 每 当 错 
误 发 生 时 ， 就 会 有 一 个 或 多 个 Error 对 象 被 放置 到 Connection 对 象 的 Errors 集合 中 。 当 另外 一 
个 ADO 操作 产生 错误 时 ， 将 清除 Errors 集合 ， 并 把 新 的 Error 对 象 集 放 到 Errors 集合 内 。 

Errors 集合 有 一 个 Count 属性 , 该 属性 用 来 指出 Errors 集合 目前 所 包含 的 Error 对 象 的 
个 数 。Errors 集合 有 一 个 Item 方法 ， 可 以 调用 Item 方法 从 Errors 集合 中 获得 某 个 具体 的 
Error 对 象 。Item 方法 是 Errors 集合 的 默认 方法 , 调用 时 可 省 略 不 写 。 此 外 , 还 可 调用 Clear 
方法 从 Errors 集合 中 清除 所 有 的 Error 对 象 。Error 对 象 的 属性 及 其 相关 说 明 ， 如 表 10-9 所 示 。 


表 10-9 _Error 对 象 的 属性 


属 性 说 了 明 
Description 关于 该 项 错误 的 描述 文字 
HelpContext 这 是 一 个 长 整数 ， 对 应 于 产生 错误 对 象 的 相关 帮助 主题 
HelpFile 对 应 于 产生 错误 的 对 象 的 相关 帮助 文件 
NativeError 数据 提供 者 所 提供 的 针对 错误 的 错误 代码 
Number ADO 所 产生 的 错误 代码 
Source 错误 所 产生 的 对 象 名 称 
SQLState 该 属性 是 一 个 长 度 为 5 个 字 节 的 字符 串 ， 包 含 按 SQL 标准 所 定义 的 错误 


10.5 认识 Properties 集合 与 Property 对 象 


Connection、Recordset、Field、Command 对 象 都 有 Properties 集合 。Properties 集合 用 
来 保存 与 这 些 对 象 有 关 的 各 个 Property 对 象 。Property 对 象 表示 各 个 选项 设置 或 其 他 没有 
被 对 象 的 固有 属性 处 理 的 ADO 对 象 特征 。 

ADO 对 象 一 般 包含 两 种 类 型 的 属性 ， 一 是 固有 属性 ， 另 一 是 动态 属性 。 固 有 属性 不 是 
作为 Property 对 象 出 现在 Properties 集合 中 。 当 创建 新 的 ADO 对 象 后 ， 这 些 固有 属性 可 立 
即使 用 。 例 如 , 可 以 用 Recordset 对 象 的 EOF 和 BOF 属性 来 判断 当前 记录 是 否 已 到 达 边 界 。 

动态 属性 是 由 后 端 数据 提供 者 定义 的 ， 这 些 属 性 被 放 到 Properties 集合 中 。 每 个 特定 
的 ADO 对 象 都 有 一 个 Properties 集合 。 

Properties 集合 有 一 个 Count 属性 , 用 来 指出 Properties 集合 上 有 多 少 个 Property 对 象 。 
可 以 用 Item 方法 从 Properties 集合 中 获得 某 个 Property 对 象 ,Item 方法 是 Properties 集合 的 
默认 方法 ， 调 用 时 可 省 略 不 写 。 如 果 要 从 数据 提供 者 上 取得 Properties 集合 和 扩展 的 属性 
信息 ， 可 以 调用 Refresh 方法 。 

Property 对 象 的 属性 及 其 相关 说 明 ， 如 表 10-10 所 示 。 
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表 10-10 ”Property 对 象 的 属性 


属 性 说 阴 
Attributes 指定 何 时 和 如 何 设 定 Property 对 象 的 值 
Name Property | Property 对 象 的 名 称 
Type Pr 指定 当前 Property 对 象 的 值 的 数据 类 型 
Value Prol 设置 Property 对 象 的 值 


10.6 习 题 


10.6.1 填空 题 


1. Recordset 中 的 记录 指针 具有 游标 类 型 ， 它 的 默认 值 为 


2. 是 针对 数据 库 操 作 中 并 发 事件 的 发 生 而 提出 的 系统 安全 控制 方式 。 
3. Fields 集合 的 属性 返回 记录 集中 字段 (Fields 对象 ) 的 个 数 ， 


方法 用 于 建立 某 一 个 Field 对 象 。 
10.6.2 ”选择 题 


1. Recordset 对 象 在 使 用 前 需要 使 用 ( 。 ”) 对 象 建立 数据 库 的 连接 。 


A. Application B. Connection 
C. Sever_OnStart D. Session 
2. 在 Recordset 对 象 创建 完成 之 后 ， 即 可 打开 ( ) 对 象 的 内 容 。 
A. Application B. Connection 
C. Recordset D. Session 


10.6.3 ”问答 题 


1. 在 使 用 INSERT 语句 添加 数据 时 需要 注意 哪些 方面 ? 
2. Recordset 对 象 使 用 Connection 对 象 与 数据 库 建 立 连接 的 操作 步骤 是 什么 ? 


10.6.4 ”操作 题 


和 本 章 【 例 10-1】 的 操作 创建 一 个 ASP 查询 页 面 。 
2. 参考 本 章 【 例 10-2】 的 操作 创建 一 个 能 够 在 数据 库 中 添加 记录 的 ASP 页 面 。 
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许多 网 络 应 用 系统 中 都 包含 有 用 户 管理 功能 ， 具 备 不 同 权限 的 用 户 在 登录 网 站 时 可 以 执 
行 的 操作 并 不 相同 。 例 如 ， 在 网 上 论坛 中 ， 版 主 用 户 拥有 可 以 删除 其 他 所 有 用 户 帖子 的 权限 ， 
而 一 般 用 户 只 能 发 布 、 删 除 、 修 改 自己 的 帖子 。 因 此 ， 用 户 在 开发 ASP 动态 网 站 时 ， 需 要 设 
计 与 网 站 应 用 目标 相符 的 用 户 管理 模块 。 

教学 目标 

通过 本 章 的 实例 讲解 ， 读 者 应 掌握 利用 ASP 技术 制作 一 个 用 户 管理 网 页 模块 的 方法 。 

教学 重点 与 难点 

。 验证 码 的 实现 方法 
e MD5 加 密 算法 
. 
. 


限制 用 户 权 限 的 方法 
实现 用 户 管理 系统 


11.1 用 户 管理 系统 的 相关 技术 


专业 的 用 户 管理 系统 需要 涉及 安全 性 、 有 效 性 、 合 法 性 等 多 个 方面 的 内 容 。 下 面 将 介 
绍 一 个 系统 要 达到 安全 有 效 管理 所 需 用 到 的 相应 技术 , 包括 验证 码 技术 、MD5 加 密 技术 和 
客户 端 服务 器 验证 技术 等 。 


11.1.1 验证 码 技术 简介 


用 户 登 录 网 站 、 发 表 评 论 时 都 需要 输入 相应 的 验证 码 。 验 证 码 就 是 将 一 个 随即 数字 (或 文 
字 ) 显 示 在 一 幅 图 片上 ， 并 在 图 片上 产生 干扰 因素 。 验 证 码 能 够 防止 网 络 攻击 者 利用 编写 的 程 
序 ， 自 动 注册 或 重复 登录 暴力 破解 密码 的 攻击 行为 。 

1. 验证 码 的 作用 


对 于 动态 网 站 而 言 ， 验 证 码 非常 重要 ， 因 为 来 自 网 络 中 的 攻击 者 会 使 用 各 种 攻击 程序 ， 
注册 大 量 的 服务 账户 。 攻 击 者 可 以 使 用 这 些 账户 为 其 他 用 户 制造 麻烦 ， 例 如 ， 发 送 垃圾 邮件 或 
通过 同时 反复 登录 多 个 账户 来 延缓 服务 的 速度 。 而 在 一 般 情 况 下, 攻击 者 的 自动 注册 程序 不 能 
识别 验证 码 图 片 中 的 字符 ， 验 证 码 可 以 有 效 维护 网 站 的 正常 用 户 注册 与 登录 系统 。 
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2. 验证 码 的 实现 流程 
验证 码 的 实现 流程 是 : 在 服务 器 端 随机 生成 验证 码 字符 串 ， 并 保存 在 内 存 中 ， 然 后 将 
该 字符 串 写 入 图 片 , 发 送 给 浏览 器 端 显示 ; 在 浏览 器 端 , 用 户 输入 验证 码 图 片上 的 字符 串 ， 
然后 提交 服务 器 端 ， 比 较 用 户 提交 的 字符 串 和 服务 器 端 保存 的 该 验证 码 字 符 串 是 否 一 致 ， 
车 一 致 则 继续 下 一 步 ， 否 则 返回 提示 ， 如 图 11-1 所 示 。 
保存 生成 的 验证 码 随机 生成 验证 码 字符 串 并 在 


写 入 图 片 后 发 送 给 浏览 器 端 
E 
比 对 浏览 器 端 提供 的 


验证 码 ， 若 与 最 初 保 浏览 器 端 将 用 户 输入 的 
存 的 一 致 则 继续 ， 否 验证 码 提交 服务 器 端 
风格 加 让 


图 11-1 验证 码 的 实现 流程 


注意 : 
一 般 情 况 下 ， 攻 击 者 编写 的 程序 ， 很 难 识别 验证 码 字符 ， 从 而 顺利 地 完成 自动 注册 、 
登录 等 操作 ， 而 用 户 则 可 以 识别 填写 ， 因 此 验证 码 就 实现 了 阻挡 网 络 攻击 的 作用 。 


3. 验证 码 的 程序 原理 
目前 ， 流 行 的 验证 码 实现 原理 如 下 。 
e 服务 器 端 文件 名 : SafeCode.asp。 
生成 随机 码 : SafeCode。 
将 随机 码 存 入 Session("SafeCode")。 
调用 绘图 函数 或 者 直接 写 入 二 进 制图 片 格式 中 ， 在 内 存 中 生成 插入 随机 码 的 图 片 。 
客户 端 文件 名 : Login.asp。 
使 用 以 下 代码 可 以 在 客户 端 显 示 验 证 码 : 
<form name = forml method = post cation = ChkSafeCode.asp> 
“定义 文本 域 ， 并 设置 其 类 型 (type)、 名 称 (name) 和 大 小 (size) 
<input type = "text name"="confirm"size = 10><img src = "SafeCode.asp"> 
</form> 
e 服务 器 端 文件 名 : ChkSafeCode.asp。 
使 用 Request 对 象 的 Form0 方 法 获得 用 户 输入 的 验证 码 ， 比 较 用 户 输入 的 验证 码 与 服 
务 器 端 生成 的 验证 码 是 否 相 当 ， 若 相当 就 继续 执行 下 面 的 代码 ， 若 不 相等 则 会 显示 相应 提 
示 内 容 ， 代 码 如 下 : 
If Request.Form("confirm")= Session("SafeCode")Then 
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Else 
ET= 验 证 码 输 入 错误 ! " 
EndIf 


注意 : 
验证 码 的 基本 实现 原理 就 是 如 上 所 示 ， 其 实 就 是 验证 码 图 片 的 生成 与 校 验 两 个 步骤 。 
但 是 ， 为 了 加 强 验证 码 的 防 攻击 作用 ， 用 户 还 需要 在 验证 码 图 片 中 生成 干扰 元 素 。 


4. 生成 验证 码 图 像 

常见 的 Web 开发 服务 器 端 技术 中 ,很 多 都 有 绘图 的 应 用 程序 接口 (Application Program 
Interface，APD 函 数 ， 使 用 这 些 函数 生成 图 片 非常 简单 。 下 面 将 介绍 在 ASP 中 不 使 用 内 管 
绘图 函数 来 生成 BMP 格式 验证 码 图 片 的 方法 。 

【 例 11-1】 在 ASP 中 生成 BMP 格式 的 验证 码 图 片 。 一 个 BMP 文件 的 格式 大 致 分 为 
BITMAPFILEHEADER( 图 像 文件 头 )、BITMAPINFOHEADER( 图 像 信 息 头 )、PALETTE( 调 
色 板 ) 和 ImageDate( 图 像 数据 ) 等 4 部 分 。 

(1) 定义 图 像 文件 头 BITMAPFILEHEADER( 它 是 一 个 结构 ) 如 下 : 
Typedef struct tagBITMAPFILEHEADER{ 
WORD bfType: 
DWORD bfSize: 
WORD bfReservedl: 
WORD bfReserved2: 
DWORD bfOffBits: 
}BITMAPFILEHEADER 

以 上 结构 的 长 度 是 固定 的 ， 为 14 个 字 节 (WORD 为 2 个 字 节 , DWORD 为 4 个 字 节 )， 
其 具体 说 明 如 下 。 

e bfType: 指定 文件 类 型 ， 必 须 是 0x424D， 即 字符 串 BM， 也 就 是 说 所 有 .bmp 文件 
的 头 两 个 字 节 都 是 BM。 
bfSize: 指定 文件 大 小 ， 包 括 14 个 字 节 。 

e@ bfReservedl 与 bfReserved2: 为 保留 字 ， 无 须 考 虑 。 
bfOffBits: 为 从 文件 头 到 实际 的 图 像 数 据 的 偏 移 字 节 数 ， 也 就 是 图 像 文 件 头 、 图 像 
信息 头 和 调 色 板 的 总 长 度 。 
(2) 定义 图 像 信息 头 BITMAPINFOHEADER( 它 也 是 一 个 结构 ) 如 下 : 
Typedef struct tagBITMAPINFOHEADER{ 
DWORD biSize: 
LONG biWidth: 
LONG biHeight: 
WORD biplanes; 
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WORD biBitCount: 
DWORD biCompression: 
DWORD biSizelmage: 
LONG biXPelsPerMeter: 
LONG biYPelsPerMeter: 
DWORD biCkrUsed: 
DWORD biClrimportant: 
}BITMAPINFOHEADER 


以 上 结构 也 是 固定 的 , 为 40 个 字 节 (WORD 为 2 个 字 节 , DWORD 为 4 个 字 节 , LONG 
为 4 个 字 节 )， 具 体 说 明 如 下 。 


biSize: 指定 该 结构 的 成 都 ， 为 40 个 字 节 。 

biWidth: 指定 图 像 的 宽度 ， 其 单位 为 像素 。 

biHeight: 指定 图 像 的 高 度 ， 其 单位 为 像素 。 

Biplanes: 必须 为 1， 无 须 考 虑 。 

biBitCount: 指定 表示 颜色 时 ， 要 用 到 的 位 数 ， 一 般 黑白 图 像 为 1，256 色 灰 度 图 像 
为 8， 真 彩色 图 像 为 24。 

biCompression: 指定 图 像 是 否 压缩 。 

biSizelmage: 指定 实际 的 图 像 数 据 占用 的 字 节 数 。 

biXPelsPerMeter: 指定 目标 设备 的 水 平分 辨 率 ， 其 单位 是 每 米 的 像素 个 数 。 
biYPelsPerMeter: 指定 目标 设备 的 垂直 分 辨 率 ， 其 单位 是 每 米 的 像素 个 数 。 
biCkrUsed: 指定 图 像 实际 用 到 的 颜色 数 ， 若 该 值 为 0， 则 用 到 的 颜色 数 为 2 的 
biBitCount 次 罕 。 

biClrlmportant: 指定 图 像 中 重要 的 颜色 数 ， 若 该 值 为 0， 则 认为 所 有 的 颜色 都 是 重 
要 的 。 


(3) 定义 调 色 板 (PALETTE)， 调 色 板 是 一 个 数组 ， 数 组 中 的 每 个 元 素 的 类 型 是 一 个 
RGBQUAD 结构 ， 占 4 个 字 节 : 


Typedef struct tag RGBQUAD { 
BYTE rgbBlue; 
BYTE rgbGreen; 
BYTE rgbRed; 


BYTE rgbReserved; 
}RGBQUAD: 


以 上 结构 的 具体 说 明 如 下 。 


rgbBlue: 颜色 的 蓝 色 分 量 。 
rgbGreen: 颜色 的 绿色 分 量 。 
IgbRed: 颜色 的 红色 分 量 。 
rgbReserved: 保留 值 。 
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注意 : 


有 些 图 像 需 要 调 色 板 ， 而 有 些 图 像 (如 真 彩色 )， 不 需要 调 色 板 。 


(4) 定义 实际 的 图 像 数 据 。 对 于 用 到 调 色 板 的 图 像 ， 图 像 数据 就 是 该 像素 颜色 在 调 色 
板 数组 中 的 下 标 值 。 对 于 真 彩色 ， 图 像 数据 就 是 实际 的 R、G、B 值 。 本 例 下 面 的 内 容 中 
使 用 的 是 黑白 2 色 图 。 因 此 调 色 板 数组 有 两 个 元 素 : 第 一 个 元 素 的 值 可 以 表示 为 白 ， 即 及 
的 值 为 0，G 的 值 为 0, B 的 值 为 0。 第 二 个 元 素 的 值 表示 为 黑 ， 即 及 、G、B 的 值 都 为 255。 

(5) 要 在 网 页 或 其 他 图 像 软件 中 查看 BMP 格式 的 图 像 ， 用 户 只 需要 将 BMP 文件 的 4 
个 部 分 一 次 读 出 并 输出 在 要 显示 的 界面 上 即 可 。 下 面 将 介绍 如 何在 图 像 上 生成 验证 码 。 看 
下 面 Letter 数组 元 素 中 1 组 成 的 图 像 ， 可 以 看 出 如 果 图 像 中 将 数组 元 素 中 0 对 应 的 像素 设 
置 为 白色 ，1 对 应 的 像素 设置 为 黑色 ， 则 显示 出 的 效果 将 是 数字 0。 

Letter(0) = "00000000000000" 

Letter(1) = "00001111100000" 

Letter(2) = "00011111110000" 

Letter(3)= "00111000111000" 

Letter(4) = "00110000011100" 

Letter($) = "01110000001100" 

Letter(6) = "01100000001110" 

Letter(7) = "01100000001110" 

Letter(8) = "11100000001110" 

Letter(9) = "11000000001110" 

Letter(10) = "11000000001110" 

Letter(11) = "11100000001110" 

Letter(12) = "11100000001100" 

Letter(13) = "11100000001100" 

Letter(14) = "01100000001100" 

Letter(15) = "01110000011100" 

Letter(15) = "00111000011000" 

Letter(16) = "00011111110000" 

Letter(17) = "00001111100000" 

Letter(18) = "0000000000000" 


(6) 如 果 将 其 他 要 在 验证 码 中 显示 的 数字 或 字母 都 用 这 样 的 格式 定义 ， 然 后 依次 在 图 像 
中 显示 ， 则 验证 码 图 像 就 生成 了 。 下 面 来 看 一 个 具体 的 生成 BMP 格式 的 验证 码 的 程序 。 
<% 
Call CreateSafeCode() "调用 CreateSafeCodeO 过 程 
Sub CreateSafeCode 0 "定义 CreateSafeCode0 过 程 
'AddHeader( 方 法 用 于 增加 带 有 一 个 要 发 送 到 客户 应 用 程序 的 特殊 的 HITP 头 
Response.AddHeader "Pragma"."no-cache" 


Response.AddHeader "cache-ctrol"."no-cache" 
指定 响应 的 HITP 内 容 类 型 为 "Image/BMP" 


第 11 章 “ASP 程序 开发 实例 一 一 用 户 管理 “233 。 


Response.ContentType = "Image/BMP" 

' 生 成 随机 数 ， 因 为 Rnd 生成 一 个 小 于 1 但 大 于 或 等 于 0 的 数 ， 所 以 8999*Rnd +1000 得 到 的 
' 随 机 数 为 一 个 四 位 数 

Randomize timer 

SafeCode = cint(8999*Rnd+1000) 

将 SafeCode 保存 在 SessionCode("SafeCode") 中 

Session("SafeCode") = SafeCode 


Dim Letter(10.20) 定义 一 个 二 维 数组 ， 保 存 字符 数据 

要 显示 的 字符 "0" 要 显示 的 字符 "1" 

Letter(0,0) = "0000000000000000" Letter(1.0) = "0000000000000000" 
Letter(0,1) = "0000111110000000" Letter(1.1) = "0000000111000000" 
Letter(0,2) = "0001111111000000" Letter(1.2) = "0000000111000000" 
Letter(0.3) = "0011100011100000" Letter(1.3) = "0000001110000000" 
Letter(0.4) = "0011000001110000" Letter(1.4) = "0000001100000000" 
Letter(0.5) = "0111000000110000" Letter(1.5) = "0000001100000000" 
Letter(0.6) = "0110000000111000" Letter(1.6) = "0000001100000000" 
Letter(0.7) = "0110000000111000" Letter(1.7) = "0000011100000000" 
Letter(0.8) = "1110000000111000" Letter(1.8) = "0000011100000000" 
Letter(0.9) = "1100000000111000" Letter(1.9) = "0000011100000000" 
Letter(0.10) = "1100000000111000" Letter(1.10) = "0000011000000000" 
Letter(0.11) = "1110000000111000" Letter(1.11) = "0000011000000000" 
Letter(0,12) = "1110000000110000" Letter(1.12) = "0000011000000000" 
Letter(0.13) = "1110000000110000" Letter(1.13) = "0000011000000000" 
Letter(0.14) = "0110000000110000" Letter(1.14) = "0000011000000000" 
Letter(0.15) = "0111000001110000" Letter(1.15) = "0000011000000000" 
Letter(0.15) = "0011100001100000" Letter(1.16) = "0000011000000000" 
Letter(0.16) = "0001111111000000" Letter(1.17) = "0000001000000000" 
Letter(0.17) = "0000111110000000" Letter(1.18) = "0000000000000000" 
Letter(0.18) = "0000000000000000" Letter(1.19) = "0000000000000000" 


Letter(0,19) = "0000000000000000" 


(7) 以 上 面 的 代码 为 参考 ， 依 次 编写 显示 3、4、5、6、7、8、9 字符 的 代码 后 ， 编 写 以 
下 代码 : 


"显示 一 个 8 位 的 灰 度 图 

' 输 出 图 像 文件 头 

Response.Binary Write ChrB(66) & ChrB(77) & ChrB(54) & ChrB(9) & _ChrB(0) & ChrB(O) & 
ChrB(0) & ChrB(0) & _ChrB(0) & ChrB(O) & ChrB(54) & ChrB(4) & ChrB(0) & ChrB(0) 

' 输 出 图 像 信 息 头 

Response.Binary Write ChrB(40) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(64) & ChrB(O) & 
ChrB(O) & ChrB(0) & ChrB(20) & ChrB(O) &_ ChrB(0) & ChrB(0) & ChrB(1) & ChrB(0) &ChrB(8) 
& ChrB(O) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(O) & ChrB(0) & ChrB(5) &_ ChrB(0) & 
ChrB(O) & ChrB(18) & ChrB(11) & ChrB(0) & ChrB(0) & ChrB(18) & ChrB(11) &_ ChrB(0) & 
ChrB(O) & ChrB(0) & ChrB(O) & ChrB(0) & ChrB(O) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) 


“234。 
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输出 图 像 调 色 板 
fori=0to255 
Response BinaryWrite ChrB(255-i) & ChrB(255-i) & ChrB(255-i) & ChrB(0) 
Next 
' 输 出 图 像 数据 
ForiTempl ==19to0step -1 ”图 像 的 每 一 行 
For iTemp2 = 1 to Len(SafeCode) ' 图 像 上 显示 的 每 一 个 字 
For iTemp3 =1to 16 “每 个 字 的 每 一 个 像素 
' 获 得 SafeCode 第 iTemp2 个 字符 ， 保 存在 SafeCodePer 中 
SafeCodePer = Mid(SafeCode.iTemp2.1) 
"从 字符 数据 Letter 数组 中 找到 SafeCodePer 对 应 的 数组 ， 例 如 1 对 应 
' 的 数组 为 Letter(1.0) 到 Letter(1.19).iTemp 指定 具体 的 行 
SafeCodeLetter = Letter(SafeCodePer,iTemp1) 


' 获 得 像素 值 
Pixel = Mid(SafeCodeLetter,iTemp3.,1)*255 
Response.BinaryWrite ChrB(pixel) 
next 
next 
next 
End Sub 
%> 
验证 码 图 片 生成 结果 
显示 验证 码 的 文件 ShowCode.asp: 
<html> 
<head> 
<title> 验 证 码 生成 </title> "设置 网 页 标题 
</head> 
<body> 
<img src = checkcode.asp> "显示 验证 码 图 片 
/body> 
</html> 


(8) 运行 以 上 代码 后 的 效果 ， 如 图 11-2 所 示 。 


[EX ox 验证 码 生成 - Yinaags 本 
文件 中 编 加 区) 相 式 0) 查看 cS Ts 
ND MD 
误 收藏 天 。 税 验 证 码 生 成 


8726 


剧 
et [本 [lw - 


图 11-2 生成 验证 码 
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注意 : 
上 面 显示 的 是 一 幅 8 位 灰 度 图 像 的 验证 码 图 片 ， 该 图 片 较 简单 ， 只 是 将 定义 的 数字 显 
示 出 来 ， 若 要 增强 验证 码 的 安全 性 ， 用 户 还 应 在 图 像 中 增加 干扰 元 素 。 


5. 验证 码 中 干扰 元 素 的 加 入 


验证 码 虽 然 能 够 有 效 防 止 网 络 攻击 者 对 用 户 注册 与 登录 系统 的 破解 ， 但 它 并 不 能 完全 
排除 破解 的 可 能 性 。 因 此 ， 要 在 图 片 中 加 入 干扰 元 素 ， 增 加 攻击 者 的 破解 难度 。 在 实际 应 
用 中 ， 干扰 元 素 主 要 分 为 颜色 干扰 和 验证 码 形状 位 置 的 干扰 两 类 。 用 户 可 以 将 以 下 代码 代 
替 文 件 checkcode.asp 中 的 下 面 两 行 代码 ， 即 可 看 到 效果 。 
Pixel = Mid(SafeCodeLetter,iTemp3,1)*255 
Response.BinaryWrite ChrB(PixeD) 
。 在 图 片 中 加 入 杂 点 像素 : 
Pixel = Mid(SafeCodeLetter,iTemp3,1)*255 
IfRnd*99+1<5 Then '5 为 随机 生成 杂 点 的 概率 ， 可 以 修改 
Response.BinaryWrite ChrB(128) ' 杂 点 的 颜色 为 128 
Else 
Response.BinaryWrite ChrB(Pixel) 
End If 
。 背景 颜色 杂乱 : 
Pixel = Mid(SafeCodeLetter,iTemp3.,1)*255 
IfPixel =0 Then 
Pixel=250*Rnd "随机 生成 的 背景 的 颜色 
EndIf 
。 字符 颜色 区 别 : 
Pixel = Mid(SafeCodeLetter,iTemp3.1)*255 
If Pixel = 255 Then 
Pixel= Rnd *255 ”' 随 机 生成 的 字符 的 颜色 
End If 
Response.Binary Write ChrB(Pixel) 


。 杂 点 像素 位 置 随机 ， 颜 色 随机 : 
Pixel = Mid(SafeCodeLetteriTemp3.1)*255 
If Rnd*99 + 1<5 Then 5 为 随机 生成 杂 点 的 概率 ， 可 以 修改 
color=Rnd*255 "随机 生成 的 杂 点 的 颜色 
Response.Binary Write ChrB(color) 
Else 


“236- ASP 动态 网 站 开发 基础 教程 (第 4 版 ) 


Response.Binary Write ChrB(Pixel) 
EndIf 


还 有 许多 其 他 的 办 法 ， 例 如 字体 改变 、 位 置 改 变 、 长 度 改变 等 .本 节 将 不 再 一 一 列举 ， 
总 之 是 要 做 到 颜色 和 形状 位 置 的 随机 改变 。 


11.1.2 ”MD5 数据 加 密 


网 络 中 常见 的 动态 网 站 都 需要 用 户 先 注册 ， 并 在 注册 时 提供 例如 电子 邮件 、 账 号 、 密 
码 等 信息 。 访 问 者 在 成 为 网 站 栏目 的 注册 用 户 之 后 ， 才 可 以 享受 网 站 一 些 特殊 栏目 提供 的 
信息 或 者 服务 ， 如 免费 电子 邮件 、 论 坛 、 聊 天 等 。 对 于 电子 商务 类 网 站 (如 淘宝 、 京 东 等 )， 
用 户 需要 购买 商品 ， 就 一 定 需要 详细 而 准确 地 注册 ， 而 这 些 信息 ， 往 往 是 用 户 很 隐秘 的 信 
息 ， 比 如 电话 、 电 子 邮 件 、 地 址 等 ， 因 此 ， 注 册 信 息 对 于 用 户 和 网 站 都 是 很 重要 的 资源 ， 
不 能 随意 透露 ， 更 加 不 能 存在 安全 上 的 隐患 。 

若 用 户 要 利用 ASP 设计 一 个 需要 用 户 注册 的 网 站 ,根据 现在 的 常用 技术 实现 方法 ， 可 
以 在 数据 库 中 建立 一 个 用 于 存放 用 户 信息 的 表 ， 该 表 中 至 少 包 括 用 户 账 号 字段 
UserAccount 和 用 户 密码 字段 Password( 当 然 ， 实 际 应 用 中 一 个 用 户 信息 表 不 可 能 就 具有 这 
些 信息 ， 往 往 会 根据 网 站 服务 要 求 ， 适 当 增 加 一 些 其 他 信息 ， 以 方便 网 站 提供 更 加 完善 的 
服务 )。 一 般 情 况 下 ， 一 个 用 户 信息 占用 这 个 用 户 信息 表 的 一 行 也 就 是 一 个 数据 记录 ， 当 用 
户 登 录 或 者 提交 资料 的 时 候 ， 程 序 将 用 户 填写 的 信息 与 表 中 的 信息 对 照 ， 如 果 用 户 账号 和 
密码 都 准确 无 误 ， 那 么 说 明 这 个 用 户 是 合法 用 户 ， 通 过 注册 ; 反之 ， 则 是 非法 用 户 ， 不 许 
通过 。 

然而 ， 这 样 并 没有 达到 安全 的 要 求 。 因 为 保存 在 数据 库 中 的 用 户 资料 没有 进行 任何 的 
保密 措施 ， 对 于 一 些 文件 型 数据 库 ， 如 Access 等 ， 如 果 有 人 得 到 该 文件 ， 那 么 所 有 的 资料 
都 会 泄露 。 更 加 重要 的 是 ， 如 果 一 个 不 负责 任 的 网 管 ， 不 需要 任何 技术 手段 ， 就 可 以 查看 
网 站 中 的 任何 资料 ， 这 样 数据 库 中 就 没有 加 密 的 用 户 信息 ， 对 于 网 管 而 言 ， 查 看 实在 是 太 
简单 了 。 所 以 ， 为 了 增加 安全 性 ， 有 必要 对 数据 库 中 的 资料 进行 加 密 ， 这 样 ， 即 使 有 人 得 
到 了 整个 数据 库 ， 如 果 没有 解密 算法 ， 也 一 样 不 能 查看 到 数据 库 中 的 用 户 信息 。 

目前 ， 有 单 向 加 密 和 双向 加 密 两 种 加 密 方式 可 以 供用 户 选中 ， 其 各 自 的 特点 如 下 

e 双向 加 密 是 加 密 算法 中 最 常用 的 , 它 将 可 以 直接 理解 的 明文 数据 加 密 为 不 可 直接 理 

解 的 密 文 数据 ， 然 后 ,在 需要 的 时 候 ， 可 以 使 用 一 定 的 算法 将 这 些 加 密 以 后 的 密 文 
解密 为 原来 可 以 理解 的 明文 。 双 向 加 密 适合 于 隐秘 通信 ， 例 如 用 户 在 网 上 购物 时 
需要 向 网 站 提交 信用 卡 密码 ,用户 当然 不 希望 自己 的 数据 直接 在 网 上 明文 传送 , 因 
为 这 样 很 可 能 被 别 的 用 户 “ 窃 听 ”， 用 户 希 望 自己 的 信用 卡 密码 是 通过 加 密 以 后 ， 
再 在 网 络 传送 ,因此 网 站 接收 到 用 户 的 数据 以 后 , 通过 解密 算法 就 可 以 得 到 准确 的 
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信用 卡 账 号 。 单 向 加 密 刚 好 相反 ， 只 能 对 数据 进行 加 密 ， 也 就 是 说 ， 没 有 办 法 对 加 
密 以 后 的 数据 进行 解密 。 
e 单 向 加 密 一 般 用 于 数据 库 中 用 户 信息 的 加 密 。 当 用 户 创建 一 个 新 的 账号 或 者 密码 
时 ， 他 的 信息 不 是 直接 保存 到 数据 库 中 ， 而 是 经 过 一 次 加 密 以 后 再 保存 ， 这 样 ， 即 
使 这 些 信息 被 泄露 ， 也 不 能 立即 理解 这 些 信息 的 真正 含义 。 
MD5 就 是 采用 单 向 加 密 的 加 密 算法 。MD5 的 全 称 是 Message-Digest Algorithm 5， 在 
20 世纪 90 年 代 初 由 MIT 的 计算 机 科学 实验 室 和 RSA Data Security Inc 发 明 ， 经 MD2、 
MD3 和 MD4 发 展 而 来 。 
现在 许多 网 站 上 都 使 用 MD5 对 用 户 保存 在 数据 库 中 的 信息 进行 加 密 。 这 主要 是 因为 
MD5 具有 以 下 几 个 很 重要 的 特性 : 
e 任意 两 段 明文 数据 ， 使 用 MD5 加 密 以 后 的 密 文 不 相同 。 
e 任意 一 段 明 文 数 据 ， 经 过 MD5 加 密 以 后 ， 其 结果 永远 不 变 。 
e 使 用 MD5 加密 的 数据 破解 非常 不 容易 。 


注意 : 
现在 网 上 MDS5 的 ASP 加 密 程序 非常 多 ， 而 且 大 部 分 都 已 经 模块 化 ， 用 户 可 以 把 这 些 
程序 放 到 自己 的 文件 夹 下 ， 然 后 直接 引用 即 可 ， 这 里 将 不 再 具体 列 出 。 


11.1.3 ”表单 验证 的 实现 


在 ASP 应 用 程序 中 , 表单 是 用 来 提交 用 户 输入 信息 的 重要 元 素 , 例如 用 户 登录 或 注册 
时 ， 需 要 输入 用 户 名 和 密码 。 要 保证 用 户 输入 信息 的 合法 性 ， 就 需要 设计 者 在 设计 ASP 程 
序 时 ， 对 用 户 提交 的 表单 信息 进行 验证 。 实 现 表单 的 验证 是 开发 Web 应 用 程序 过 程 中 , 经 
常会 遇 到 的 问题 ， 用 户 可 以 通过 设 定 ， 验 证 表单 的 某 些 项 是 否 填写 ， 适 用 于 何 种 填写 规则 
以 及 是 否 指定 填写 位 数 等 。 表 单 的 验证 一 般 分 为 客户 端 验 证 与 服务 器 验证 两 种 ， 下 面 将 分 
别 进 行 介绍 。 

1. 客户 端 验证 


所 谓 客户 端 验证 指 的 是 通过 编写 JavaScript 或 VBScript 的 表单 验证 函数 ， 在 浏览 器 客 
户 端 实现 表单 验证 的 效果 ， 此 类 验证 方式 一 般 采 用 和 警告 框 的 形式 ， 填 制 表单 的 用 户 可 以 根 
据 提示 的 内 容 快速 完成 表单 内 容 的 填写 。 客户 端 验证 方式 的 优点 是 : 能 够 为 用 户 提供 方便 、 
快速 的 反馈 ， 使 应 用 程序 似乎 立刻 作出 响应 ， 给 人 一 种 运行 本 机 桌面 应 用 程序 的 错觉 ， 它 
能 节省 用 户 的 时 间 并 减少 服务 器 端的 访问 次 数 。 其 缺点 是 : 使 用 客户 端 验证 要 求 用 户 的 浏 
览 器 必须 支持 JavaScript 或 VBScript 脚本， 而 且 客 户 端 验证 的 安全 性 较 低 。 

用 户 可 以 参考 下 面 的 CheckO 过 程 在 Web 程序 中 实现 客户 端 验证 (代码 检查 用 户 是 否 输 
入 用 户 名 和 密码 ， 如 果 没 有 输入 将 显示 相应 的 提示 内 容 )。 
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<script language = "VBScript"> language 指定 设置 编程 语言 
function CheckO0 
开 documentMyForm.UserName value =" " Then ' 用 户 名 为 空 
window.alert(" 用 户 名 不 能 为 空 !") ' 给 出 提示 
Tetum false 


EndIf 
下 document.MyForm.UserPwd.value ="" Then 密码 为 空 


window.alert(" 密 码 不 能 为 空 ! ") 
Tetum false 
EndIf 
return true 
End Function 
</script> 
2. 服务 器 验证 
所 谓 服务 器 端 验证 指 的 是 表单 提交 后 ， 使 用 ASP 对 象 Request 的 Form0 方 法 读 取 从 表 
单传 递 过 来 的 数据 进行 验证 , 然后 将 结果 返回 客户 端 , 这 个 验证 过 程 是 在 服务 器 端 进行 的 。 
以 下 代码 可 以 实现 服务 器 端 验证 。 
<% 
UserName = Trim(Request.form("UserName")) ' 读 取 从 表单 传递 过 来 的 身份 数据 
UserPwd = Request.form("UserPwd") 
这 UserName =" " or UserPwd =" " then ' 用 户 名 或 密码 为 空 
Ermmsg = "请 输入 用 户 名 和 密码 " 
给 出 提示 ， 并 返回 前 一 个 页 面 
Response. Write "<script>alert( "&Errmsg&"'):history.backO:</script>" 
Response.End 
EndIf 
%> 


注意 : 

服务 器 端 验 证 的 兼容 性 较 好 ， 并 且 能 够 提供 真正 应 用 程序 级 的 安全 ， 是 构建 安全 Web 
应 用 程序 必须 的 ， 不 管 在 客户 端 输入 的 是 什么 数据 ， 它 可 以 确保 客户 端 传 到 服务 器 的 所 有 
数据 都 是 有 效 的 。 但 是 服务 器 端 验证 速度 比较 慢 ， 需 要 将 数据 提交 到 服务 器 端 ， 然 后 再 返 
回 ， 使 用 不 方便 。 因 此 ， 在 Web 应 用 程序 开发 中 ， 一 般 是 将 客户 端 验证 和 服务 器 端 验证 结 
合 起 来 ， 利 用 二 者 的 优点 ， 尽 量 提高 Web 应 用 程序 的 安全 性 。 
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11.1.4 检测 表单 内 容 的 合法 性 


用 户 在 设 定 表单 提交 规则 时 ， 可 以 根据 ASP 动态 网 站 的 需求 ， 要 求 填写 表单 的 用 户 输 
入 一 定 长 度 的 用 户 名 、 密 码 或 E-mail 等 。 网 站 对 用 户 名 (或 密码 ) 长 度 的 检测 与 电子 邮件 格 
式 合 法 性 的 检查 属于 表单 内 容 合法 性 的 检测 范畴 之 内 。 除 此 之 外 ， 表 单 内 容 的 合法 性 检测 
还 包括 输入 信息 是 否 包含 某 些 字符 、 是 否 为 数字 或 是 否 为 字母 等 。 
1. 不 允许 包含 指定 字符 的 检测 
用 户 可 以 参考 以 下 代码 ， 检 测 表单 内 容 ， 并 设 定 不 允许 表单 填写 者 在 填写 表单 时 ， 提 
交 指 定 的 一 部 分 字符 (非法 字符 ): 
<% 
Function Validate(str) ”“'str 为 要 检测 的 字符 串 
Validate= Tme 初始 化 
invalid="" 非法 字符 为 空 ， 也 可 以 写 为 其 他 字符 
让 _InStr(str,invalid)>0 Then str 字符 串 中 存在 invalid 字符 
Validate = False 
EndIf 
End Function 


%> 
2. 电子 邮件 格式 的 合法 性 检测 
用 户 可 以 参考 以 下 代码 ， 检 测 表单 提交 者 提交 的 E-mail 格式 是 否 正确 : 


<% 


Function IsValidEmail(email) "定义 过 程 
Dim names, name,. i, ¢ 
IsValidEmail = TRUE 初始 化 


' 使 用 @ 字 符 将 email 字符 串 分 成 几 个 子 字符 串 并 保存 在 names 数组 中 
names = Split(email, "(@") 
"Ubound0 函 数 返回 数组 names 的 最 大 下 标 ，Ubound(names)<>1 表明 email 字符 串 中 存在 
' 的 @ 字 符 并 不 是 一 个 ， 所 以 email 不 是 有 效 的 邮件 地 址 格式 
If UBound(names) 一 1 Then 
IsValidEmail =FALSE 
Exit Function "跳出 Function 过 程 
EndIf 
For Each name in names 数组 names 中 的 每 一 个 元 素 
IfLen(name) <= 0 Then 字符 串 name 内 字符 的 数目 
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IsValidEmail = FALSE 


Exit Function "跳出 Function 过 程 
EndIf 
Fori=1 To Len(name) 下 or 循环 
"Mid(name.i.1) 返回 字符 串 name 内 第 i 个 字符 ，LCase0 函 数 将 该 字符 转 
换 成 小 写 形式 


c=LCase(Mid(name, i. 1)) 
"InStr0 函 数 返回 某 字符 串 在 另 一 个 字符 串 中 第 一 次 出 现 的 位 置 。 
"TStr("abcdefghijklmnopqrstuvwxyz -.", c) <= 0 表明 字符 c 不 在 字符 串 
"abcdefghijklmnopqrstuvwxyz -." 中 。ISNumeric(G) 判 断 字符 c 是 否 为 数字 
开 InStr("abcdefghijklmnopqrstuvwxyz -.".c)<=0 
AND NOT IsNumeric(c) Then “' 不 支持 中 文 格式 地 址 
IsValidEmail = FALSE 


Exit Function "跳出 Function 过 程 
EndIf 
Next ' 结 束 For to 循环 
"eft(name.1) 返 回 字 符 串 name 最 左边 一 个 字符 。Right(name.1) 返 回 字符 串 name 
最 右边 一 个 字符 


If Left(name, 1)="." or Right(name, 1)="." Then 
IsValidEmail =FALSE 


Exit Function "跳出 Function 过 程 
End If 
Next ' 结 束 For each 循环 
'email 字符 串 中 @ 右 边 部 分 不 包含 字符 "." 


If InStr(names(1), ".") <= 0 Then 
IsValidEmail = FALSE 
Exit Function 
EndIf 
"InStrRev0 函 数 返回 某 字符 串 在 另 一 个 字符 串 中 出 现 的 从 结尾 计 起 的 位 置 
"InStrRev(names(1). ".") 得 到 字符 "." 在 字符 串 names(1) 中 从 结尾 计 起 的 位 置 
i=Len(names(1)) - InStrRev(names(1). ".") 
' 电 子 邮 件 最 后 一 般 为 cn 或 com， 长 度 为 2 或 3 
Hi 一 2ANDi 一 3Then 
IsValidEmail =FALSE 
Exit Function 
EndIf 
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A 


下 InStr(email. "..") > 0 Then 'email 中 存在 字符 串 "…" 
IsValidEmail = FALSE 
EndIf 


End Function 


9%> 


3. 表单 内 容 只 能 输入 字母 的 检测 
用 户 可 以 参考 以 下 代码 ， 检 测 表单 内 容 ， 并 设 定 表单 的 一 部 分 相关 内 容 ， 只 能 输入 英 
文字 母 : 
<% 
Function CheckLetter(str) 。“'str 为 要 检测 的 字符 串 
CheckLetter = Tme ”初始 化 
Letters = "ABCDEFGHUKLMNOPQRSTUVWXYZ"” ' 初 始 化 
fori=1 to len(str) ”“” ‘len0 函 数 返回 字符 串 长 度 
checkchar = UCase(Mid(str.i.1)) 
"Mid(str.i.1) 返回 字符 串 str 第 i 个 字符 ，UCaseO 
函数 将 该 字符 转换 为 大 写 形式 
If (InStr(Letters,checkchar)<=0) Then 'checkchar 在 Letters 中 不 存在 
CheckLetter = False 
Exit Function ”跳出 Function 过 程 
EndIf 
Next “' 结 束 For 循环 
End Function 
%> 


11.2 用户 管理 系统 简介 


本 节 将 介绍 使 用 验证 码 技术 与 MD5 加 密 技术 实现 一 个 相对 安全 的 用 户 管理 系统 及 与 
该 系统 配套 的 一 个 用 户 登 录 程序 。 设 计 一 个 ASP 网 站 的 用 户 管理 系统 ,并 且 能 够 实现 根据 
登录 用 户 的 身份 ， 赋 予 用 户 不 同 的 管理 权限 的 功能 。 
用 户 管理 系统 设置 一 个 默认 的 “系统 管理 员 ”， 由 网 站 设计 人 员 添 加 到 数据 库 中 ， 并 
赋予 其 以 下 权限 。 
。 管理 员 登 录 。 
。 关于 密码 修改 。 
。 普通 权限 用 户 添加 。 


ID 
Eg 
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e 普通 权限 用 户 信息 修改 。 

。 普通 权限 用 户 删除 。 

。 退出 登录 。 

用 户 管理 系统 赋予 普通 用 户 以 下 权限 。 

e 普通 用 户 登录 。 

e 修改 个 人 密码 。 

。 退出 登录 。 

另外 ， 用 户 管理 系统 还 能 够 检测 用 户 输入 信息 的 合法 性 。 

综 上 所 述 ， 用 户 管理 系统 所 要 实现 的 功能 及 各 功能 相互 之 间 的 关系 ， 如 图 11-3 所 示 。 


用 户 登录 界面 


管理 员 Admin 


管理 员 系 统 界面 


普通 权限 用 户 


用 户 系统 界面 


图 11-3 系统 功能 结构 图 


11.2.1 数据库 设计 


本 节 实 例 所 介绍 的 用 户 管理 系统 采用 Access 数据 库 。 由 系统 的 结构 可 以 看 出 ， 本 系统 
只 使 用 一 个 Users 数据 表 即 可 ， 如 表 11-1 所 示 。 


表 11-1 数据 表 结构 


字 段 说 阴 
D 编号 
UserName 用 户 的 登录 名 称 
UserPwd 用 户 的 登录 密码 
Ename 用 户 姓 名 


用 户 的 电子 邮箱 


E-mail 
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11.2.2 ”系统 文件 简介 


通过 系统 功能 结构 图 可 以 看 出 ， 本 节 实 例 将 主要 由 以 下 文件 组 成 。 

e ChkPwd.asp 文件 : 该 文件 要 求 用 户 输入 用 户 名 、 密 码 和 验证 码 ， 完 成 用 户 登 录 。 

e index.asp 文件 : 该 文件 为 系统 主 界面 文件 ， 根 据 用 户 的 权限 显示 不 同 的 操作 。 

e@ UserListasp 文件 : 该 文件 为 已 添加 用 户 显示 文件 。 在 该 文件 中 ， 还 可 以 添加 用 户 、 
修改 或 删除 已 添加 用 户 。 

UserAdd.asp 文件 : 该 文件 完成 用 户 的 添加 。 

UserEdit.asp 文件 : 该 文件 完成 已 添加 用 户 的 信息 修改 。 

UserSave.asp 文件 : 该 文件 完成 用 户 添 加 和 用 户 信息 修改 时 的 数据 保存 工作 。 
UserDel.asp 文件 :该 文件 完成 用 户 的 删除 。 

PwdChange.asp 文件 : 该 文件 完成 用 户 密码 的 修改 。 

SavePwd.asp 文件 : 该 文件 完成 用 户 新 密码 在 数据 库 中 的 保存 。 

Logout.asp 文件 : 该 文件 为 用 户 退 出 登录 文件 。 

公共 文件 : 包括 conn.asp 文件 (完成 与 数据 库 的 连接 )、md5.asp 文件 (完成 用 户 密码 
的 加 密 ) 以 及 procedure.asp 文件 (该 文件 中 包含 邮件 地 址 格式 确认 和 用 户 名 是 否 在 数 
据 库 中 已 存在 这 两 个 过 程 )。 


注意 : 
在 用 户 管理 系统 中 ， 除 了 以 上 几 个 主要 文件 外 ， 还 包括 function.asp、safecode.asp、 
canvas.asp 和 font.asp 文件 ， 这 4 个 文件 完成 用 户 登录 时 验证 码 的 生成 与 显示 。 


11.3 设计 用 户 管理 系统 


-个 最 基本 用 户 管理 系统 ， 包 括 用 户 注册 模块 、 用 户 登 录 模块 、 系 统 主 界面 、 用 户 管 
理 模 块 、 添 加 用 户 模块 (管理 员 )、 修 改 用 户 模块 (管理 员 )、 删 除 用 户 模块 (管理 员 ) 以 及 退出 
用 户 模块 等 部 分 。 下 面 将 根据 本 章 实例 的 要 求 ， 逐 步 介 绍 设计 用 户 管理 系统 所 设计 的 各 模 
块 页 面 的 方法 与 步骤 。 


11.3.1 系统 主 界面 


本 节 实 例 所 介绍 的 用 户 管理 系统 的 主 界面 (Index.asp 文件 )， 如 图 11-4 所 示 。 
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输入 用 户 名 和 密码 显示 输入 错误 
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11-4 用 户 管理 系统 主 界面 
Index.asp 文件 的 代码 如 下 : 
<!--#include file = "ChkPwd.asp" --> 
<h2 align = "center" > 用 户 管理 及 用 户 登 录 系 统 </h2> "定义 文章 题目 
<hr> 
<center> 


<script language = "VBScript" > 
Function newwin(url) ' 定 义 newwin0 过 程 
"使 用 window 的 open0 方 法 打开 一 个 窗口 ， 该 窗口 指定 大 小 ， 并 且 大 小 可 变 ， 没 有 状态 栏 、' 地 
址 栏 、 菜 单 和 ' 工 具 栏 ， 窗 口中 显示 的 内 容 由 url 指定 
newwin = window.opne(url, " newwin "."toolbar =noocation = no, 
directories = no,status = no,menubar = no,scrollbars = yes,_ 
Tesizable = yes.width = 400.height = 380")newwin.focusO 
Tetum false 
End Function 
</script> 
<% 
' 如 果 登 录 成 功 ， 则 根据 用 户 名 称 决定 显示 内 容 
If Session("Passed" ) = True Then 
'Session("UserName") 中 为 当前 登录 用 户 的 用 户 名 
Tesponse.write(" 登 录 成 功 ，"&Session("UserName")&"， 
欢迎 光临 <br><br><br><center>") 
ifsession("UserName") ="Admin" then ' 当 前 登录 用 户 为 Admin 
Response.write("<a href = UserList.asp> 用 户 管理 </a>| _ 
<a href = pwdchange.asp?UserId="&Session("Id")&" _ 
onclick =" "return newwin(this.hre 人 " "> 修改 密码 _ 
</a>| <a href=1logout.asp> 退 出 登录 </a>") 
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else "当前 登录 用 户 为 普通 用 户 
Tesponse.write("<a href = pwdchange.asp?UserId="&Session("Id")&" _ 
onclick =" "return newwin(this.href)" "> 修改 密码 _ 

</a>| <a href= logout.asp> 退 出 登录 </a>") 


以 上 程序 代码 的 运行 过 程 如 下 所 示 。 

(1) 使 用 代码 <!--#include file = "ChkPwd.asp"--> 防 止 未 经 登录 的 用 户 打 开 该 网 页 。 

(2) 若 用 户 登录 成 功 ( 即 Session("Passed") = True)， 则 显示 欢迎 信息 ， 并 根据 用 户 名 来 
判断 用 户 的 权限 ,显示 不 同 的 用 户 界 面 。 在 本 文中 , 设 定 系统 管理 员 为 Admin, 所 以 Admin 
登录 成 功 后 的 界面 , 如 图 11-5 所 示 。 普通 用 户 Alice 登录 成 功 之 后 的 界面 , 如 图 11-6 所 示 。 
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图 11-6 普通 用 户 登录 界面 


图 11-5 管理 员 用 户 登录 界面 
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11.3.2 ”用户 注册 模块 


用 户 注册 模块 一 般 由 客户 端 用 户 填 写 部 分 与 服务 器 端 表单 验证 部 分 两 部 分 组 成 。 本 例 
中 ， 用 户 注册 模块 的 客户 端 部 分 由 register.asp 文件 实现 ， 其 界面 如 图 11-7 所 示 。 


图 11-7 用 户 注册 界面 
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图 11-7 所 示 的 register.asp 文件 界面 包含 一 个 表单 MyForm， 该 表单 的 定义 如 下 。 
(1) 当 用 户 输入 信息 ， 单 击 “ 提 交 ” 按 钮 后 ， 表 单 提交 的 数据 将 在 verify.asp 文件 中 进 
行 处 理 。 
(2) 在 verify.asp 文件 中 ， 首 先 判 断 用 户 名 、 密 码 和 电子 邮件 是 否 填写 ， 然 后 判断 三 者 
的 格式 是 否 正确 ， 如 果 不 正确 将 返回 到 注册 页 面 ， 正 确 会 提示 用 户 输入 正确 。Verify.asp 文 
件 的 表单 处 理 代 码 如 下 : 
<% 
UserName = Trim(Request.form("UserName"))  “' 读 取 从 表单 传递 来 的 用 户 名 数据 
UserPwd = Request("UserPwd") ' 读 取 从 表单 传递 来 的 用 户 密码 数据 
Email = Request.Form("Email") 
"用户 输 入 的 信息 至 少 有 一 项 为 空 
If UserName =" "or UserPwd =" "or Email = "" then 
"提示 用 户 ， 并 返回 到 用 户 注册 页 面 
Pesponse.Write"<>script>alert( 未 填写 完全 ! "):history.back:</script>" 
Pesponse.End 
ElseIf Not CheckLetter(UserName)Then 输入 的 用 户 名 存在 非法 字符 
' 提 示 用 户 ， 并 返回 到 用 户 注册 页 面 
Pesponse.Write"<script>alert( 输 入 的 用 户 名 没有 全 部 是 大 写 或 小 写字 
母 ! ): history.back0O:</script>" 


Pesponse.End 

ElseIf Not IsNumeric(UserPwd)Then "输入 的 密码 为 非 数字 
Pesponse.Write"<script>alert( 输入 的 密码 为 非 数 字 ! ) history.backO:</script>" 
Pesponse.End 

ElseIf Not IsValidEmail(Email)Then "输入 的 电子 邮件 格式 不 正确 


提示 用 户 ， 并 返回 用 户 注册 页 面 
Pesponse.Write"<script>alert( 输 入 的 电子 邮件 地 址 格式 不 正确 ! ): 


_history.backO:</script>" 
Pesponse.End 
Else 
Pesponse.Write"<center> 输 入 正确 ! " 
End If 
注意 : 


以 上 包含 两 个 过 程 ， 即 CheckLetter() 过 程 和 IsValidEmail() 过 程 。CheckLetter0 过 程 检 
查 输入 的 用 户 名 是 否 全 是 字母 ，IsValidEmailO 过 程 检查 输入 的 电子 邮件 格式 是 否 正确 。 
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11.3.3 ”用户 登录 模块 


用 户 登 录 模 块 是 用 户 在 登录 网 站 时 ， 用 户 管理 系统 首先 显示 的 页 面 。 本 例 中 用 户 登 录 
模块 由 ChkPwd.asp 文件 实现 ， 其 界面 如 图 11-8 所 示 。 在 ChkPwd.asp 文件 中 ， 为 了 保证 用 户 
登录 后 , 不 再 重复 显示 登录 窗口 , 设置 了 一 个 Session 变量 Passed。 如 果 Session(Passed) = True， 
表示 用 户 已 经 登录 成 功 ， 反 之 ， 若 Session(Passed) = False， 表 示 用 户 还 没有 登录 ， 则 显示 
用 户 登 录 窗 口 。 
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图 11-8 用 户 登录 界面 


ChkPwd.asp 文件 的 界面 上 包含 表单 MyForm, 该 表单 用 于 输入 用 户 名 、 密码 和 验证 码 ， 
其 定义 语句 如 下 : 
‘Tequest.servervariable("PATH_INFO") 获 得 该 文件 的 虚拟 路 径 ，ChkFieldsO 过 程 检查 
' 用 户 名 、 密 码 和 验证 码 是 否 输入 
<form method = "post" action ="<%=request.servervariables("PATH INFO")%>" name= 
"MyForm" onsubmit = "retum ChkFieldsO"> 


在 用 户 登录 界面 表单 内 ， 定 义 输入 用 户 名 的 文本 域名 称 为 UserName， 输 入 密码 的 文 
本 域名 称 为 UserPwd, 输入 验证 码 的 文本 域名 称 为 confirm。 程 序 运行 时 ， 调 用 function.asp 
文件 中 的 GetSafeCodeO 过 程 生成 并 在 页 面 上 显示 验证 码 图 片 。 由 上 面 的 定义 语句 可 以 看 
出 ， 表 单 被 提交 后 ， 将 首先 使 用 ChkFieldsO 过 程 检查 用 户 是 否 输 入 完全 ， 然 后 再 将 表单 数 
据 提交 到 该 文件 中 处 理 。 
ChkPwd.asp 文件 的 代码 如 下 : 
<!--#include file = "conn.asp"--> 
<!--#include file = "md5.asp"--> 
<!--#include file = "function.asp"--> 
<% 
"如 果 尚 未 定义 Passed 对 象 ， 则 将 其 定位 为 false， 表 示 没 有 通过 身份 认证 
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if IsSEmpty(Session("Passed")) then 
Session("Passed") = False 
Endif 


' 如 果 Session("Passed") = False， 表 示 没 有 通过 身份 认证 
让 Session("Passed") = False then 
' 读 取 从 表单 传递 过 来 的 身份 数据 
UserName = Trim(Request.form("UserName")) 
UserPwd = Request.form("UserPwd") 


让 UserName =" "or UserPwd =" "then ”' 用 户 名 或 密码 没有 输入 
Emrmsg = "请 输入 用 户 名 和 密码 " "错误 信息 

Else 

"IsNumeric0 函 数 判断 是 否 为 数字 

If not IsNumeric(Request.Form("confirm")) Then 

Response.Write "<script>alert( 你 输入 的 验证 码 为 非 数 字 ! ); </script>" 

Response.End 

EndIf 

5 判断 程序 生成 的 验证 码 与 用 户 输入 的 验证 码 是 否 一 致 ， 如 果 一 致 ， 则 执行 下 面 的 代码 
If (int(Session("SafeCode"))=int(Request.Form("confirm"))) Then 

' 创 建 RecordSet 对 象 

Set TS = server.createobject("adodb.recordset") 

' 从 数据 库 中 查找 UserName 列 的 值 为 UserName 的 记录 

sql = "Select * from users Where UserName =" "&UserName&"'" 
rs.open sql.conn.1.3 执行 查找 操作 
ifrsEOF then ' 不 存在 满足 条 件 的 记录 
Ermsg= "用户 不 存在 " "错误 信息 

conn.Close "关闭 数据 库 连接 

Set conn = nothing 

Else 

' 用 户 输入 的 密码 错误 

fmd5(UserPwd)<>rs.Fields("UserPwd") then 

Ermsg = "密码 不 正确 " 

conn.Close "关闭 数据 库 连接 

Set conn = nothing 

else ' 用 户 登 录 成 功 
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Ermsg="" 

' 将 Session 变量 Passed 置 为 True， 表 示 用 户 通过 身份 认证 
Session("Passed") = True 

' 将 当前 登录 的 用 户 名 保存 在 Session 变量 UserName 中 
Session("UserName") = rs.Fields("UserName") 

' 将 当前 登录 用 户 的 id 保存 在 Session 变量 Id 中 
Session("Id") = rs.Fields("Id") 

endif 

endif 

Else 

' 程 序 生成 的 验证 码 与 用 户 输入 的 验证 码 不 一 致 

Emrmsg = "验证 码 输入 错误 !" 


End If 
endif 
endif 
if Not Session("Passed") then "用 户 没有 通过 身份 认证 
%> 
<html> 
<head> 
<title> 输 入 用 户 名 和 密码 </title> "设置 网 页 标题 
</head> 
<body> 
‘<script language = "VBScript"> 
function ChkFields| "定义 过 程 ， 检 查 用 户 输入 情况 
If document.MyForm.UserName.value =" " Then ' 用 户 名 没有 输入 
window.alert(" 输 入 用 户 名 !") "给 出 提示 
Teturn false 
End If 
If document.MyForm.UserPwd.value =" " Then ' 用 户 密码 没有 输入 
window.alert(" 输 入 密码 !") "给 出 提示 
Tetum false 
EndIf 
If document.MyForm.confirm.value =" " Then 验证 码 没有 输入 
window.alert(" 输 入 验证 码 !") 给 出 提示 
Tetum false 


End If 


i 
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Tetum true 
End Function 
</script> 
<p align = "center"><font color = "#0000ff" size = 5 > 用 户 登 录 模 块 </font></p> 
<p align = "center"><font color = "#800000"> 
<%=Ermsg%> ' 显 示 错误 信息 
</font></p> 
' 生 成 表单 ， 并 设置 其 信息 传递 的 方式 (method)、 动 作 (action)、 名 称 (name) 和 提交 处 理 (onsubmit) 
<form method = "post" action ="<%=request.servervariables_ 
(PATH INFO")%>" name = "MyForm" onsubmit = "Tetum ChkFieldsO"> 
<center> 
"生成 表格 
<table border="0" width="40%"> 
<tr> 
<td width="27%" bgcolor="# ffffff " align="center"> 
<font size="2"> 用 户 名 :</font> 
</td> 
<td width="73%"> 
' 生 成 文本 域 ， 并 定义 其 类 型 (type)、 名 称 (name) 和 大 小 (size)， 该 文本 域 用 于 
输入 用 户 名 
<input type = "text" name = "UserName" size = 20> 
</td> 
</tr> 
<tr> 
<td width="27%" bgcolor=" ffffff " align="center"> 
<font size="2"> 密 &nbsp:&nbsp: 码 : </font> 
<td> 
<td width="73%"> 
"生成 文本 域 ， 并 定义 其 类 型 (type)、 名 称 (name) 和 大 小 (size)， 该 文本 域 用 于 ' 输 入 用 户 登 录 密 码 
<input type = "password" name = "UserPwd" size = 20> 
<td> 
</tr> 
<t> 
<td width="27%" bgcolor="# ffffff " align="center"><font size="2"> 验 证 码 ， </font> 
</td> 
<td width="73%"> 
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' 生 成 文本 域 ， 并 定义 其 类 型 (type)、 名 称 (name) 和 大 小 (size)， 该 文本 域 用 于 
"输入 验证 码 


<input type = "text" name = "confirm" size = 10> 
<%call GetSafeCode096> 
<td> 
</tr> 

</table> 
<p align = "center"> 
' 生 成 按钮 
<input type = "submit" value = "提交 " name = "B1">&nbsp:&nbsp: 
<input type = "reset" value = " 重 置 " name = "B2"></p> 
</form> 
<p align= "center"></p> 
</body> 
</html> 
<% 

Tesponse.end 

Endif 
%> 

以 上 程序 代码 的 运行 过 程 如 下 所 示 。 

(1) 使 用 代码 <!--#include file = "conn.asp"--> 连 接 数 据 库 。 

(2) 使 用 代码 <!--#include file = "md5.asp"--> 包 含 文件 md5.asp， 定 义 了 md50 过 程 。 

(3) 使 用 代码 <!--#include file = "function.asp"--> 包 含 文件 function.asp， 定 义 了 
GetSafeCode0 过 程 。 

(4) 判断 Session(Passed) 的 值 ， 如 果 为 空 ， 表 示 第 一 次 登录 ， 则 将 其 设置 为 False， 表 

(5) 如 果 Session(Passed) = False， 表 示 没 有 登录 ， 因 此 需要 进行 身份 认证 。 

(6) 从 表单 MyForm 中 读 取 用 户 名 和 密码 数据 到 变量 UserName 和 UserPwd 中 。 若 
UserName 和 UserPwd 为 空 ， 则 使 用 HTML 代码 生成 登录 界面 ， 要 求 用 户 输入 用 户 名 和 密 
码 登 录 。 

(7) 如 果 UserName 和 UserPwd 不 为 空 ， 则 首先 判断 用 户 输入 的 验证 码 是 否 为 数字 ， 
是 否 正 确 。 

(8) 如 果 验 证 码 输 入 正确 , 则 从 数据 库 中 查找 用 户 名 为 UserName 的 记录 , 存在 满足 条 
件 的 记录 ， 则 判断 该 记录 的 密码 是 否 与 用 户 输入 的 密码 一 致 。 不 一 致 给 出 提示 信息 ， 一 致 
则 用 户 登录 成 功 ， 将 有 关 信 息 保存 到 Session 变量 中 ， 并 转 到 系统 主 界面 。 

为 了 防止 未 登录 的 用 户 进 入 指定 的 网 页 ， 用 户 可 以 在 具有 权限 控制 的 网 页 开始 部 分 添 
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加 以 下 代码 : 
<!--#include file = "ChkPwd.asp"--> 


这 样 每 次 打开 网 页 时 ， 都 会 首先 执行 ChkPwd.asp 文件 。 在 ChkPwd.asp 文件 中 ， 会 先 
判断 Session 变量 Passed 的 值 ， 如 果 为 True， 则 不 执行 任何 操作 ， 直 接 进 入 指定 的 页 面 。 
如 果 为 False， 则 表示 当前 用 户 没 有 经 过 身份 认证 ， 此 时 ChkPwd.asp 将 显示 登录 界面 ， 要 
求 用 户 登 录 。 


注意 : 


使 用 以 上 方法 ， 用 户 就 不 需要 在 其 他 的 网 页 中 编写 判断 用 户 是 否 登 录 的 代码 了 。 


11.3.4 ”限制 一 般 用 户 权限 


用 户 管理 系统 的 作用 不 仅 要 通过 ChkPwd.asp 文件 防止 未 登录 的 网 络 用 户 访问 网 站 的 
特定 页 面 ， 还 需要 防止 已 登录 的 一 般 用 户 访问 用 户 权限 以 外 的 网 站 页 面 (如 管理 员 页 面 )。 
因此 ， 在 设计 用 户 管理 系统 时 ， 用 户 需要 通过 设 定 限 制 一 般 用 户 的 权限 ， 有 具体 代码 如 下 : 

<% 
'Session("UserName") 中 为 用 户 登录 时 输入 的 用 户 名 。 用 户 名 不 是 Admin 
If Session("UserName") 一 "Admin" Then 
' 给 出 提示 ， 并 返回 到 前 一 个 页 面 
Response.Write "<script>alert( 非 系统 管理 员 ， 没 有 此 权限 ! ): history.backQ</script>" 
Else 
加 ' 用 户 名 是 Admin， 则 显示 相应 的 网 页 
End If 
%> 
注意 : 

使 用 以 上 代码 ， 当 登录 的 用 户 在 本 浏览 器 中 打开 包含 上 述 代码 的 文件 时 ,会 首先 检查 
Session("UserName") 中 的 值 是 否 为 Admin， 若 发 现 不 是 ， 则 提示 用 户 “ 非 系统 管理 员 ， 没 
有 此 权限 ”， 然 后 返回 到 前 一 个 页 面 。 


11.3.5 用 户 管理 模块 


用 户 管理 模块 的 作用 是 为 管理 员 提供 一 个 管理 用 户 的 界面 ， 本 节 实 例 所 介绍 的 用 户 管 
理 模 块 界面 ， 如 图 11-9 所 示 。 
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TI 


11-9 用 户 管理 界面 


在 用 户 管理 界面 中 ， 用 户 可 以 通过 单 击 “ 用 户 管理 “超级 链接 ， 将 打开 UserList.asp 
文件 。 在 该 文件 的 用 户 列表 中 ， 列 出 了 数据 库 中 所 有 的 用 户 记录 。 每 条 记录 包括 用 户 名 、 
用 户 姓名 、 电 子 邮箱 和 修改 、 删 除 操作 。 在 用 户 列表 的 下 面 ， 有 一 个 “添加 用 户 信息 ”的 
超级 链接 。 用 户 管理 模块 的 具体 代码 如 下 : 

<!--#include file= "ChkPwd.asp"--> 
<% 
IfSession("UserName") <> "Admin" Then 登录 的 用 户 不 是 Admin 
给 出 提示 ， 并 返回 前 一 页 
Response.Write "<script>alert(' 您 不 是 系统 管理 员 ， 没 有 此 权限 ! 7) _ 
history.backO</script>” 
Session("Passed") = False 
Else 
%> 
<html> 
<head> 
<title> 系 统 用 户 管理 </title> "设置 网 页 标题 
<script language = "vbscript"> 
Function newwin(url) ' 定 义 newwin0 过 程 
"使 用 window 的 open0 方 法 打开 一 个 窗口 ， 该 窗口 指定 大 小 ， 并 且 大 小 可 变 ， 没 有 状态 栏 、 
地 址 栏 、 菜 单 和 工具 栏 ， 窗 口中 显示 的 内 容 由 url 指定 
newwin = Window.open(urL"newwin"."toolbar=-nolocation=no、 
directories=no.status=no.menubar=-no.scrollbars=yes、 
resizable=yes.width=400.height=380") 


newwin.focus() 
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Tetum false 
End Function 
</script> 
</head> 
<body link = #000080 vlink = #008080> 
<h3></h3> 
<h2 align=center> 用 户 列 表 </h2> 


<table width = 90% align = center cellspacing = 1 cellpadding = 2 border=]_ 
bordercolor=#808080 bordercolordark=#FFFFFF bordercolorlight=#EIFSFF> 


<tr> 


<td align=center width=20% bgcolor=#E1F5FF><b> 用 户 名 </b></td> 
<td align=center width=20% bgcolor=#E1F5FF><b> 用 户 姓 名 </b></td> 
<td align=center width=20% bgcolor=#E1F5FF><b> 电 子 邮 箱 </b></td> 
<td align=center width=20% bgcolor=#E1F5FF><b> 操 作 </b></td> 


</tr> 
<% 


"定义 RecordSet 对 象 


Setrs = Server.CreateObject("ADODB.RecordSet") 
TS.Open "Select * 位 om Users Order by Id".conn.1.3 


ICount = rs.RecordCount 
"循环 显示 所 有 的 用 户 数据 ， 同 时 画 出 表格 
Do While Not rs.EOF 
%> 
<tr> 
<td><%=rs("UserName")%></td> 
<td><%=rs("Ename")%></td> 
<td><%=rs("Email")%></td> 
<td align=center> 
"建立 到 用 户 修改 的 超级 链接 
<a href=UserEdit.asp?userid=<%=rs("Id")%> _ 
onclick="return newwin(this href"> 修 改 </a> 
<%lf rs("UserName")<—>"Admin" Then%> 
' 建 立 到 用 户 删除 的 超级 链接 
<a href=UserDel.asp?userid=<%=1s("Id")%> _ 
onclick="return newwin(this hreD"> 删 除 </a></td> 
<%End I®%> 


' 用 户 名 
' 用 户 姓 名 
"用 户 Email 


用 户 名 不 是 "Adminy 
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</tr> 

<% 
TS.MoveNext ' 指 向 下 一 条 记录 
Loop 
IfrCount=0 Then ' 没 有 用 户 记录 


Response. Write("<tr align=center><td colspan=6> 
<font color=red> 目 前 没有 用 户 记录 </font></td></tr>") 
Else ' 存 在 用 户 记录 
Response.Write("<tr align=center><td colspan=6>_ 
<font color=red> 当 前 共有 "&Trim(rCount)&" 条 用 户 记录 </font></td></tr>") 
EndIf 
%> 
</table> 
<br> "换行 
"添加 用 户 信息 的 超级 链接 
<p align=center><a hre 人 UserAdd.asp> 添 加 用 户 信息 </a></p> 
</body> 
</html> 
<% 
End If 
%> 
以 上 程序 代码 的 运行 过 程 如 下 所 示 。 
(1) 使 用 <!--##include file= "ChkPwd.asp"--> 防 止 未 经 登录 的 用 户 打开 该 网 页 。 
(2) 判断 用 户 是 否 是 系统 管理 员 Admin， 如 果 不 是 ， 将 给 出 提示 ， 并 返回 到 前 一 页 。 
如 果 是 ， 显 示 该 页 。 
(3) 使 用 HTML 代码 画 出 表 头 ， 包 括 用 户 名 、 用 户 姓名 、 电 子 邮 箱 和 操作 。 
(4) 读 取 数 据 库 中 所 有 用 户 的 记录 。 
(5) 使 用 Do While 语句 依次 读 取 用 户 数据 ， 并 以 表格 的 形式 显示 出 来 。 在 表格 每 一 行 
的 最 后 单元 格 中 显示 对 本 行 用 户 记录 的 操作 , 包括 “修改 ”和 “人 删除”。 如 果 用 户 名 为 Admin， 
则 只 有 “修改 ”操作 。 
(6) 使 用 rs.RecordCount 读 取 记 录 数 量 ， 并 显示 在 表格 的 下 面 。 
(7) 建立 “添加 用 户 信息 ”超级 链接 ， 链 接 到 UserAdd.asp 文件 。 


注意 : 
在 用 户 管理 模块 的 文件 代码 中 ， 定 义 了 一 个 newwin0 过 程 ， 它 能 够 生成 并 打开 一 个 指 
定 样 式 、 指 定 大 小 的 窗口 ， 并 在 该 窗口 中 显示 指定 的 界面 内 容 。 
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11.3.6 ”添加 用 户 模块 


添加 用 户 模块 的 作用 是 在 用 户 管理 界面 UserList.asp 中 提供 一 个 可 以 允许 管理 员 添加 
用 户 的 界面 (由 UserAdd.asp 文件 实现 )， 本 节 实 例 所 介绍 的 添加 用 户 模块 界面 ， 如 图 11-10 


所 示 。 


图 11-10 ”添加 用 户 界面 


在 UserAdd.asp 文件 中 ， 包 含 表单 myform， 用 于 填写 用 户 信息 ， 该 表单 的 定义 语句 如 
下 所 示 。 
<form method = "post" action = "UserSave.asp " name = "myform" onsubmit = "return 
ChkFieldsO"> 


在 添加 用 户 界 面 的 表单 中 ， 定 义 输入 用 户 名 的 文本 域名 称 为 UserName， 输 入 用 户 姓 
名 的 文本 域名 称 为 Ename， 输 入 用 户 密码 的 文本 域名 称 为 Pwd， 输 入 确认 密码 的 文本 域名 
称 为 Pwdl， 输 入 电子 邮箱 的 文本 域名 称 为 Email。 另 外 ， 在 表单 myform 中 ， 还 定义 了 隐 
藏 域 hag， 用 来 标识 当前 操作 是 添加 用 户 操作 还 是 修改 用 户 操 作 。 通 过 以 上 代码 可 以 看 出 ， 
当 管 理 员 输入 用 户 信息 ， 并 单 击 “ 提 交 ” 按 钮 后 ， 表 单 中 的 数据 首先 在 ChkFieldsO 过 程 中 
检查 其 合法 性 ， 然 后 将 数据 提交 到 服务 器 端 ， 在 UserSave.asp 文件 中 处 理 。ChkFieldsO 过 
程 的 代码 如 下 : 


<script language = "VBScript"> 
Function ChkFields() 
这 document.myform.UserName.value ="" Then ”' 用 户 名 没有 输入 
window.alert(" 请 输入 用 户 名 ") "给 出 提示 
myform UserName focus0 ' 将 用 户 名 文本 框 设 为 输入 焦点 
Tetum false 
EndIf 
' 用 户 名 长 度 太 小 
if document.myform.UserName.value.Length <= 6 Then 
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window.alert(" 请 用 户 名 长 度 必须 大 于 2! ") ' 给 出 提示 
myform.UserName .focus() ' 将 用 户 名 文本 框 设 为 输入 焦点 
Tetum false 

EndIf 

if document.myform.Pwd.value.Length <= 6 Then ' 密 码 长 度 小 于 6 
window.alert(" 新 密码 长 度 大 于 6") "给 出 提示 
myform.UserName focus0 ' 将 用 户 名 文本 框 设 为 输入 焦点 
Tetum false 

EndIf 

fdocument.myform.Pwd.value =" " Then 密码 没有 输入 
window.alert(" 请 输入 新 密码 ") "给 出 提示 
myform .UserName .focus0 ' 将 用 户 名 文本 框 设 为 输入 焦点 
Teturn false 
EndIf 

if document.myform.Pwdl.value =" " Then ' 确 认 密 码 没有 输入 
window.alert(" 请 确认 新 密码 ") "给 出 提示 
myform.UserName .focus0 ' 将 用 户 名 文本 框 设 为 输入 焦点 
Teturn false 

EndIf 

' 两 次 输入 的 密码 不 相同 


if document.myform.Pwd.value 一 documentmyform.Pwdl.value Then 
window.alert(" 两 次 输入 的 新 密码 必须 相同 ") "给 出 提示 
myform.UserName.focus0 "将 用 户 名 文本 框 设 为 输入 焦点 
Teturn false 
End If 
Tetum true 
End Function 
</script> 
在 UserSave.asp 文件 中 处 理 用 户 信息 添加 的 代码 如 下 : 
Dim sql.UserName.UserPwd.Ename.Email "定义 变量 
' 从 表单 中 读 取 用 户 名 数据 ， 使 用 Trim0 函 数 去 掉 字符 串 前 后 的 空格 后 ， 将 字符 串 保存 到 变量 
UserName 中 
UserName = Trim(Request.Form("UserName")) 
' 从 表单 中 读 取 密码 数据 ， 使 用 Trim0 函 数 去 掉 字符 串 前 后 的 空格 后 ， 将 字符 串 保存 到 变量 


UserPwd 中 
UserPwd = Trim(Request.Form("Pwd")) 
Ename = Request.Form("Ename") ' 读 取 用 户 姓名 数据 
Email = Request Form("Email") ' 读 取 用 户 电 子 邮 箱 数据 


"如 果 flag 域 的 值 为 new， 表 示 添 加 数据 ， 否 则 表示 修改 数据 
If Request.Form("flag") = "new" Then 

5 判断 此 用 户 是 否 存在 

Set HVrs = Server.CreateObject("ADODB.RecordSet") 
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' 从 数据 库 中 查询 UserName 列 的 值 为 UserName 的 记录 

sql = "Select * from users Where UserName 一" "&UserName&"'" 
执行 查询 ， 并 将 结果 保存 在 HVrs 中 

HVrs.Open sqlLconn.1.3 


If Not HVIs.EOF Then ' 不 存在 满足 条 件 的 记录 
Response.Write "<script>alert(' 已 经 存在 此 用 户 名 ): history.backO:</script>” 
Response.End 
Else ' 存 在 满足 条 件 的 记录 
If Not IsValidEmail(Email) Then "判断 邮件 地 址 格式 
Response.Write "<script>alert(" 邮 件 地 址 格式 不 正确 ); history.backO:</scripf>" 
Response.End 
Else 
Set Urs = nothing 
在 数据 库 Users 中 插入 新 信息 


Set Urs = Server.CreateObject("ADODB.RecordSet") 
sql = "Select * 位 om Users" 
Urs.Open sql.conn,1,3 


Urs.addnew 插入 新 记录 
Urs("UserName") = UserName ' 用 户 名 
Urs("UserPwd") = md5(UserPwd) 密码 
Urs("Ename") = Ename ' 用 户 姓 名 
Urs("Email") = Email "用 户 Email 
Urs.update 蝎 新 数据 库 
Urs.Close "关闭 RecordSset 对 象 
Set Urs = nothing 

End If 

End If 

HVrs.Close "关闭 RecordSet 对 象 

Set HVrs=nothing 

Response.Write "<center> 添 加 成 功 <br><br><br>" 

' 建 立 到 用 户 管理 界面 的 超级 链接 


Response.Write("<a href = UserList.asp> 返 回 </a>") 


以 上 程序 代码 的 运行 过 程 如 下 所 示 。 

(1) 使 用 Rquest 对 象 的 FormO 方 法 读 取 从 表单 传递 过 来 的 用 户 数据 。 

(2) 使 用 Request 对 象 的 Form0 方 法 读 取 隐 藏 域 flag 的 值 。 

(3) 如 果 flag 的 值 为 new， 表 示 添 加 新 记录 。 则 首先 判断 当前 的 用 户 名 在 数据 库 中 是 
和 否 存在 ， 如 果 已 经 存在 ， 则 提示 用 户 “已 经 存在 此 用 户 名 ”， 然 后 返回 前 一 页 。 如 果 不 存 
在 ， 则 首先 判断 输入 的 数据 格式 是 否 正确 ， 正 确 的 话 就 使 用 Insert 语句 在 数据 库 中 插入 新 
记录 ; 否则 给 出 提示 。 
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11.3.7 ”修改 用 户 模块 


修改 用 户 模块 的 作用 是 在 用 户 管理 模块 中 ， 提 供给 管理 员 一 个 修改 一 般 用 户 信息 的 界 
面 (由 UserEdit.asp 文件 实现 )， 本 节 实 例 所 介绍 的 修改 用 户 模块 ， 如 图 11-11 所 示 。 
es o - 四 


3 El © 


3 Pe 


| 上 
图 11-11 修改 用 户 信息 界面 


在 UserEdit.asp 文件 中 ， 包 含 表单 myform， 用 于 填写 用 户 数据 。 该 表单 的 定义 语句 如 
下 所 示 。 


<form method = "post" action = "UserSave.asp" name = "myform" "> 


在 修改 用 户 页 面 的 表单 中 ， 定 义 了 输入 用 户 姓名 的 文本 域 为 Ename， 输 入 电子 邮箱 的 
文本 域 为 Email。 表单 myform 中 还 包含 隐藏 域 UserId， 其 值 为 当前 修改 用 户 的 id。 由 以 上 
代码 可 以 看 出 ， 当 管理 员 输 入 用 户 修改 的 信息 ， 并 单 击 “ 提 交 ” 按 钮 后 ， 表 单 中 的 数据 将 
在 UserSave.asp 文件 中 处 理 。 在 UserSave.asp 文件 中 处 理 用 户 修改 的 代码 如 下 : 


Dim sql.UserId, Ename.Email "定义 变量 

UserId = Request.Form("UserId") "从 表单 中 接收 用 户 id 数据 
Ename = Request. Form("Ename") ' 从 表单 中 接收 用 户 姓 名 数据 
Email = Request. Form("Email") "从 表单 中 接收 用 户 电子 邮箱 数据 


' 创 建 RecordSet 对 象 

Set Urs = Server.CreateObject("ADODB.RecordSet") 

' 从 数据 库 中 查询 id 列 的 值 为 UserId 的 记录 ， 并 保存 在 Urs 中 
Urs.Open "Select * 位 om users Where id="&UserId.conn,1.3 
Urs("Ename") = Ename 

Urs("Email") = Emai 


Urs.update ' 更 新 数据 库 中 的 用 户 信息 
Urs.Close "关闭 RecordSet 对 象 
Set Urs = nothing 


Response.Write "<center> 修 改 成 功 <br><br><br>” ' 给 出 提示 
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Response Write "<a href = userlist.asp> 返 回 </a>” “” "建立 超级 链接 


以 上 程序 代码 的 运行 过 程 如 下 所 示 。 
(1) 使 用 Rquest 对象 的 Form0 方 法 读 取 从 表单 传递 过 来 的 用 户 数据 。 
(2) 使 用 Request 对 象 的 Form0 方 法 读 取 隐藏 域 flag 的 值 。 


(3) 如 果 flag 的 值 不 是 new， 表 示 修 改 用 户 信 息 。 则 使 用 Update 语句 修改 数据 库 中 的 
记录 。 


11.3.8 删除 用 户 模块 


删除 用 户 模块 的 作用 是 在 用 户 管理 界面 中 ， 提 供 管理 员 一 个 删除 一 般 用 户 的 界面 (由 
UserDel.asp 实现 )， 在 用 户 管理 模块 UserList.asp 页 面 中 ， 如 果 系 统管 理 员 想 删除 某 条 用 户 
记录 ， 可 以 单 击 该 用 户 对 应 的 “删除 ”超级 链接 ， 将 打开 UserDel.asp 文件 ， 从 数据 库 中 删 
除 该 用 户 的 记录 。 


删除 用 户 模块 UserDel.asp 文件 的 代码 如 下 : 


<!--#include file= "ChkPwd.asp"--> 

<% 
If Session("UserName") > "Admin" Then "登录 的 用 户 不 是 Admin 
' 给 出 提示 ， 并 返回 前 一 页 


Response.Write "<script>alert( 您 不 是 系统 管理 员 ， 没 有 此 权限 ! ):history.backO</script>" 


Else 
%> 
<html> 
<head> 
<title> 删 除 用 户 信息 </title> "设置 网 页 标题 
</head> 
<body> 
<% 
Dim Uid 
Uid=Request.QueryString("UserId") ' 读 取 UserId 参数 的 值 
' 生 成 RecordSet 对 象 
Set Drs = Server.CreateObject("ADODB.RecordSet") 
"执行 删除 操作 ， 删 除数 据 库 中 Id 列 的 值 为 Uid 的 记录 
Drs.Open "Delete from Users where Id = "&Uid.conn.1.3 
Response.Write ("<center><h2> 成 功 删 除 </h2>") ' 给 出 提示 ， 删 除 成 功 
"建立 到 用 户 管理 界面 的 超级 链接 
Response.Write "<a href= UserList.asp> 返 回 </a>" 


第 11 章 “ASP 程序 开发 实例 一 一 用 户 管理 *261* 


<% 
End If 
%> 
以 上 程序 代码 的 运行 过 程 如 下 所 示 。 
(1) 使 用 代码 <!--#include file= "ChkPwd.asp"--> 防 止 未 经 登录 的 用 户 打 开 该 网 页 。 
(2) 判断 登录 用 户 是 否 是 系统 管理 员 Admin， 如 果 不 是 ， 则 给 出 警告 ， 并 返回 到 前 一 页 。 
(3) 如 果 是 ， 则 使 用 Request 对 象 的 QueryString() 方 法 读 取 UserId 的 值 。 
(4) 在 数据 库 中 执行 Delete 语句 ， 删 除 指定 的 用 户 记录 。 
(5) 在 页 面 上 显示 “成 功 删除 "的 信息 ， 并 生成 一 个 到 用 户 管理 界面 UserList.asp 文件 的 
超级 链接 。 


11.3.9 修改 密码 模块 


修改 密码 模块 的 作用 是 为 管理 员 与 普通 用 户 提供 一 个 修改 自己 的 用 户 登录 密码 的 界 
面 (由 PwdChange.asp 文件 实现 )， 本 节 实 例 所 介绍 的 修改 密码 模块 界面 ， 如 图 11-13 所 示 。 


TT Me 


图 11-12 ”修改 密码 模块 


修改 密码 模块 界面 中 ， 定 义 了 表单 PwdChgForm。 表 单 PwdChgForm 内 定义 输入 原始 
密码 的 文本 域 的 名 称 为 OriPwd, 输入 新 密码 的 文本 域 的 名 称 为 Pwd, 输入 确认 密码 的 文本 
域 的 名 称 为 Pwdl。 表 单 PwdChgForm 的 具体 定义 代码 如 下 : 
<form method="POST" name="PwdChgForm" action="SavePwd.asp?UserId=<%=UserId%>" 
onsubmit="return ChkField0"> 


通过 以 上 代码 可 以 看 出 , 当 用 户 输入 密码 信息 并 单 击 “ 提交 ”按钮 后 , 首先 在 ChkField() 
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过 程 中 检查 用 户 密 码 输 入 的 合法 性 ， 然 后 在 SavePwd.asp 文件 中 处 理 从 表单 传递 过 来 的 数 
据 。ChkField0 过 程 的 代码 如 下 : 


<script language="vbscript"> 
Function ChkFields0  ””' 定 义 过 程 

' 用 户 输入 的 新 密码 长 度 小 于 6 

If Document.PwdChgForm.Pwd.value.length<6 Then 
alert(" 新 密码 长 度 必须 大 于 等 于 6! ") 弹出 警告 框 
Imyform.Pwdfocus0 “界面 上 的 新 密码 文本 框 设 为 焦点 
Tetum false 

EndIf 

' 用 户 没有 输入 确认 密码 

If Document.PwdChgForm.Pwdl.value=" " Then 
alert(" 请 确认 新 密码 !") "弹出 警告 框 
myform.Pwd.focus0  ””' 界 面 上 的 新 密码 文本 框 设 为 焦点 
Tetum false 

EndIf 

' 用 户 输入 的 新 密码 和 确认 密码 不 一 致 

If Document.PwdChgForm.Pwd.value—>Document.myform.Pwdl.value Then 
alert(" 两 次 输入 的 新 密码 必须 相等 ! ") "弹出 警告 框 
Ietum false 

EndIf 

return true 

End Function 
</script> 
在 ChkField0 过 程 中 ,首先 检查 用 户 输 入 的 新 密码 长 度 ， 如 果 密码 长 度 小 于 6， 则 弹出 
警告 框 ， 并 返回 到 密码 修改 界面 重新 输入 。 如 果 密 码 长 度 满足 条 件 ， 则 检查 用 户 是 否 输入 
确认 密码 ， 最 后 检查 用 户 两 次 输入 的 密码 是 否 一 致 。 
SavePwd.asp 文件 中 处 理 表 单数 据 的 代码 如 下 : 


<% 
' 使 用 Request 对 象 的 QueryString0 方 法 获得 UserId 的 值 
UserId = Request.QueryString("UserId") 
"使 用 Request 对 象 的 Form0 方 法 读 取 从 表单 传递 过 来 的 值 
OriPwd = Request.Form("OriPwd") 
Pwd = Request.Form("Pwd") 
判断 是 否 存在 此 用 户 
Setrs = Server.CreateObject("ADODB.RecordSet") 建立 RecordSet 对 象 
"从 数据 库 中 读 取 id 列 的 值 为 UserId 的 记录 
TS.Open "Select * from Users Where id="&UserId.conn.1.3 
IfrsEOF Then "满足 条 件 的 记录 不 存在 
Response.Write("<hr><center> 不 存在 此 用 户 名 ! </h2><br><br><br>") 
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"生成 关闭 窗口 的 按钮 

Response.Write("<input type = button name = close onclick = window.closeO value = 关闭 >") 
ElseIf (rs("UserPwd")<>md5(OriPwd)) Then “' 用 户 输入 密码 错误 

Response.Write("<hr><center> 密 码 错误 ! </h2><br><br><br>") 


"生成 关闭 窗口 的 按钮 

Response. Write("<input type = button name = close onclick = window.closeO value = 关闭 >") 
Else "存在 满足 条 件 的 记录 
' 更 新 数据 库 中 的 密码 


sql = "Update Users set UserPwd= ' "&md5(Trim(Pwd))&" ' where Id = "&UserId 
Set rs = Server.CreateObject("ADODB.RecordSet") 


TS.Open sql.conn.1,3 
Response.Write("<hr><center> 更 改 密码 成 功 ! </h2><br><br><br>") 
Response. Write("<input type = button name = close onclick = window.closeO value = 关闭 >") 
EndIf 
%> 


以 上 程序 代码 的 运行 过 程 如 下 所 示 。 

(1) 使 用 代码 <!--#nclude file= "ChkPwd.asp"--> 防 止 未 登录 的 用 户 打 开 该 网 页 。 

(2) 使 用 Request 对 象 的 QueryString() 方 法 从 网 页 链接 地 址 中 读 取 Userld 的 值 , 从 表单 
中 读 取 原始 密码 OriPwd 和 新 密码 Pwd 的 值 。 

(3) 判断 数据 库 中 是 否 存在 用 户 id 为 Userld 的 记录 。 

(4) 如 果 存 在 满足 条 件 的 记录 ， 则 判断 用 户 输入 的 原始 密码 是 否 正确 。 

(5) 如 果 正 确 ， 则 更 新 数据 库 ， 修 改 用 户 密 码 。 

(6) 提示 用 户 “ 更 改 密码 正确 "， 并 生成 一 个 关闭 窗口 的 按钮 。 


11.3.10 ”退出 登录 模块 


退出 登录 模块 用 于 在 Index.asp 文件 中 , 单 击 “退出 登录 ”超级 链接 , 将 打开 logout.asp 
文件 退出 用 户 登录 状态 。 在 logout.asp 文件 中 退出 登录 的 具体 代码 如 下 : 

<% 
"将 Session("Passed") 的 值 置 为 False， 表 明 当 前 没有 用 户 登 录 
Session("Passed") = false 
Session("UserName")=" ” ' 清 空 Session("UserName") 中 的 值 
Session("Id")=""” ' 清 空 Session("Id") 中 的 值 
Response.Redirect "index.asp” ' 页 面 转 到 index.asp 文件 

%> 
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11.4 习 题 


1. 简 述 生成 网 页 验证 码 的 实现 流程 。 
2. 简 述 MD5 数据 加 密 的 原理 。 


11.4.2 ”操作 题 


1. 创建 本 章 实例 所 用 的 Access 数据 库 。 
2. 修改 本 章 实 例 效果 ， 使 管理 员 账 户 可 以 修改 普通 用 户 账户 密码 。 
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网 络 聊天 室 是 网 络 中 一 种 常见 的 应 用 。 通 过 网 络 聊天 室 ， 网 络 中 的 用 户 可 以 实现 与 网 上 
其 他 用 户 的 在 线 沟通 。 本 章 将 详细 介绍 利用 ASP 和 Access 数据 库 实现 网 络 聊天 室 的 具体 方法 ， 
帮助 用 户 进一步 通过 实例 操作 掌握 ASP 动态 网 站 程序 开发 的 技巧 。 


教学 目标 
通过 本 章 的 程序 开发 实例 ， 读 者 应 掌握 利用 ASP 技术 制作 聊天 室 网 页 模块 的 方法 。 
教学 重点 与 难点 


。 聊天 室 用 户 登 录 与 注册 功能 的 实现 
。 在 线 用 户 显示 模块 的 实现 
e 聊天 信息 的 提交 与 显示 


12.1 网 络 聊天 室 的 相关 技术 


-个 基于 ASP 的 网 络 聊天 室 系 统 , 一 般 涉及 的 相关 技术 包括 聊天 内 容 的 实时 刷新 显示 
模块 与 网 友 聊天 功能 的 实现 。 本 节 将 介绍 一 个 能 够 达到 网 络 聊天 室 系统 所 需 用 到 的 相应 技 
术 ， 包 括 网 络 的 定时 刷新 、 私 聊 功 能 的 实现 以 及 利用 Application 与 Session 对 象 刷新 聊 
天 等 。 


12.1.1 刷新 聊天 室 


下 面 将 介绍 利用 HTML 代码 定时 刷新 网 页 和 利用 Application 对 象 与 Session 对 象 实现 
刷新 聊天 室 的 方法 。 

1. 利用 HTML 脚本 刷新 网 页 

在 网 络 聊天 室 系统 中 ， 浏 览 器 需要 通过 不 断 地 刷新 ， 读 取 聊 天 用 户 最 新 发 布 的 聊天 内 
容 。 用 户 可 以 参考 以 下 代码 实现 浏览 器 网 页 自动 刷新 效果 。 

<meta http-equiv="refresh"content="4"> 

以 上 代码 是 一 条 简单 的 页 面 自动 刷新 脚本 ， 它 是 一 段 HTML 脚本 ， 其 作用 是 每 间隔 4 
秒 自 动 刷新 浏览 器 页 面 一 次 ， 执 行 读 取 聊天 室 数 据 库 中 用 户 发 布 信息 并 在 页 面 中 显示 。 

使 用 以 下 代码 可 以 设置 每 4 秒 在 页 面 中 显示 一 次 系统 时 间 : 


.266- ASP 动态 网 站 开发 基础 教程 (第 4 版 ) 


<html> 

<head> 

<meta http-equiv="refresh"content="4"> 
<title> 网 页 每 4 秒 刷新 一 次 </title> 
</head> 

<body> 

当前 的 时 间 是 : <%=now0%> 

</body> 

</html> 


注意 : 
以 上 代码 只 适用 于 小 型 的 网 络 聊天 室 系统 ， 对 于 人 数 较 多 的 大 型 聊天 室 ， 使 用 上 面 的 
代码 将 会 造成 时 间 和 资源 的 浪费 。 


2. 利用 Application 对 象 与 Session 对 象 刷新 聊天 室 


Application 对 象 代表 了 一 个 Active Server 应 用 程序 ， 也 就 是 一 个 Web 网 页 ，Session 
对 象 则 表示 一 个 用 户 ， 代 表 一 个 用 户 对 Web 页 面 的 一 次 访问 ， 通 过 Application 对 象 可 以 
访问 它 的 所 有 用 户 共享 信息 ， 并 能 够 在 Web 服务 器 运行 期 间 持久 地 保存 数据 ， 而 Session 
对 象 也 可 以 在 用 户 的 一 次 访问 期 间 持久 地 保存 数据 。 因 此 , 利用 Application 对 象 与 Session 
对 象 ， 用 户 可 以 非常 方便 地 实现 聊天 室 刷 新 功能 。 

利用 Application 对 象 与 Session 对 象 实现 聊天 室 刷 新 的 原理 是 : 在 聊天 室 网 站 开始 运 
行 , 用 户 还 没有 开始 使 用 聊天 室 时 , 初始 化 Application 对 象 变量 Gchatnum 为 0, Gchatnum 
变量 为 用 户 发 言 的 次 数 ， 当 用 户 每 发 言 一 次 ， 则 Application("Gchatnum" 加 1。 当 某 个 用 户 
登录 进入 聊天 室 后 ,创建 该 用 户 的 一 个 Session 变量 Lchatnum, 并 将 Application("Gchatnum") 
的 值 赋予 Session("Lchatnum") ， 该 用 户 在 聊天 室 聊天 的 过 程 中 ， 系 统 将 不 断 判 断 
Application("Gchatnum") 的 值 与 Session("Lchatnum") 的 值 是 否 相 同 , 若 不 相同 则 将 数据 库 中 
Application("Gchatnum'") 大 于 Session("Lchatnum") 的 聊天 记录 读 出 并 显示 在 用 户 ( 本 例 登 录 
用 户 ) 的 浏览 器 中 。 


12.1.2” 私 聊 功 能 


网 络 聊天 室 的 私 聊 功能 允许 聊天 室 两 个 用 户 屏 蔽 其 他 用 户 单独 进行 聊天 ， 聊 天 内 容 既 
会 显示 在 公共 聊天 频道 中 ， 更 不 会 被 参与 聊天 用 户 以 外 的 其 他 用 户 看 到 。 要 实现 这 样 的 
功能 ， 聊 天 室 设 计 者 可 以 设置 几 个 Application 变量 来 保存 私 聊 信 息 ， 例 如， 
Application("chat") 保存 私 聊 的 内 容 ，Application("chatto" 保存 私 聊 的 对 象 ， 
Application("owner") 保 存 聊 天 发 言 者 。 当 用 户 登 录 聊天 室 系 统 时 ， 使 用 Session("user") 记 录 
用 户 名 ，Session("chat") 记 录 该 用 户 是 否 私 聊 ， 初 始 化 为 False， 表 示 用 户 没 有 私 聊 。 当 用 
户 需要 私 聊 时 ， 则 记录 私 聊 信 息 ， 并 将 Session("chat") 设 置 为 True， 表 示 有 私 聊 。 
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用 户 可 以 参考 以 下 语句 实现 私 聊 : 
' 私 聊 内 容 
Application("chat")="<font color=blue>"& 发 言 者 用 户 名 &"</font><|> 悄 悄 对 


<font color=#00bb00>&nbsp:; " 私 聊 对 象 用 户 名 &"</font> 耳 语 </>: 
<font color=#000aa>"& 私 聊 内 容 &"</font><BR><BR>" 


Application("chat") = 私 聊 对 象 用 户 名 ' 私 聊 对 象 

Application("owner") = 发 言 者 用 户 名 "发 言 者 

Session("chat") = "True" ' 存 在 私 聊 
注意 : 


实现 聊天 室 私 聊 功 能 的 原理 是 : 当 Application 中 保存 私 聊 信息 后 ， 用 户 浏览 器 会 判断 


Session("User") 的 值 与 Application("chat") 的 值 是 否 相 同 ， 若 相同 则 在 浏览 器 端 显示 私 聊 内 
容 ， 若 不 同 ， 但 Application("chat") 是 所 有 人 ， 则 仍然 显示 私 聊 的 内 容 。 否 则 将 不 显示 任何 
私 聊 信息 。 


12.2 ”聊天 室 系 统 简介 


本 节 将 介绍 使 用 ASP 实现 一 个 网 络 聊 天 室 的 方法 。 在 聊天 室 中 , 访问 者 不 但 可 以 看 到 


当前 聊天 室 中 最 新 的 公共 聊天 内 容 ， 而 且 还 可 以 与 聊天 室 中 的 特定 用 户 进行 私 聊 ， 私 聊 的 
内 容 将 不 会 显示 在 公共 聊天 频道 中 。 


网 络 聊 天 室 系 统 主要 包括 用 户 登录 模块 、 用 户 注 册 模 块 和 已 注册 用 户 聊 天 模块 (网 站 结 


构 如 图 12-1 所 示 )， 其 各 自 功能 如 下 。 


e 用 户 登 录 模 块 : 要 求 用 户 输入 登录 聊天 室 的 用 户 名 、 密 码 与 验证 码 ， 完 成 登录 。 
e 用 户 注册 模块 : 要 求 用 户 输入 登录 的 用 户 名 、 密 码 、 真 实 姓 名 和 电子 邮箱 。 
e 用 户 聊 天 模块 : 允许 已 注册 并 登录 用 户 进 入 聊天 界面 与 其 他 用 户 聊 天 。 


ET 


退出 聊天 室 


显示 聊天 内 容 一 "| 发 送 聊天 内 容 上 | 更 新 并 显示 聊天 


图 12-1 聊天 室 系统 的 结构 
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12.2.1 数据库 设计 


本 章 实例 采用 Access 数据 库 。 根据 系统 的 结构 图 (如 图 12-1 所 示 ) 可 以 看 出 , 该 聊天 室 
系统 将 用 到 User、Online 和 chat 数据 表 3 个 ， 其 各 自 的 功能 如 下 
e User 数据 表 : 用 于 保存 用 户 注册 信息 ,包括 用 户 名 、 密 码 、 真 实 姓 名 和 电子 邮箱 等 
字段 ， 如 表 12-1 所 示 。 


表 12-1 User 数据 表 


UserName 
PassWord 


用 户 的 真实 姓名 
用 户 的 电子 邮件 


e。 Online 数据 表 : 用 于 保存 在 线 用 户 信息 ， 包 括 用 户 与 登录 时 间 等 ， 如 表 12-2 所 示 。 


表 12-2 ”Online 数据 表 


e chat 数据 表 : 用 于 保存 用 户 聊天 内 容 ， 包 括 发 言 者 用 户 名 、 发 言 对 象 用 户 名 、 发 言 
时 间 和 发 言 内 容 等 ， 如 表 12-3 所 示 。 


表 12-3 chat 数 据 表 


字 段 说 了 明 
ID 编号 
FromName 聊天 发 言 者 用 户 名 
TonName 发 言 对 象 的 用 户 名 
PostTime 日 期 /时 间 发 言 时 间 
chat 发 言 内 容 


12.2.2 ”系统 文件 简介 


通过 聊天 室 系 统 结构 图 可 以 看 出 ， 本 章 实例 主要 由 以 下 文件 组 成 。 
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e@ 用 户 登 录 模 块 : 主要 由 index.asp 文件 实现 。index.asp 文件 提供 的 网 页 界面 中 要 求 
用 户 输入 用 户 名 、 密 码 和 验证 码 ， 完 成 聊天 室 系 统 的 登录 。 

e 用 户 注册 模块 : 主要 由 register.asp 文件 实现 。register.asp 文件 提供 的 网 页 界面 中 ， 
要 求 用 户 输入 用 户 账号 、 密 码 、 确 认 密 码 、 真 实 姓名 和 电子 邮箱 等 信息 ， 以 完成 新 
用 户 的 注册 。 

e 用 户 聊天 模块 : 主要 由 以 下 文件 实现 。 

0 main.asp 文件 : 为 聊天 室 主 界面 文件 
0 chatroom asp 文件 ， 为 聊天 室 布局 文件 。 

showname.asp 文件 : 用 于 显示 当前 在 线 用 户 列表 。 

postmsg.asp 文件 ， 用 于 实现 用 户 输入 和 发 送 聊天 内 容 。 

showmsg.asp 文件 : 用 于 显示 用 户 登 录 之 后 的 所 有 聊天 内 容 。 

topmasg.asp 文件 : 用 于 在 聊天 室 上 方 显示 聊天 室 名 称 。 

logout.asp 文件 : 用 于 用 户 退 出 聊天 室 系 统 。 

公共 文件 : 包括 用 于 完成 数据 库 连接 的 conn.asp 文件 ， 用 于 完成 用 户 密码 加 密 

的 md5.asp 文件 以 及 用 于 邮件 地 址 格式 确认 过 程 的 procedure.asp 文件 。 


芝 -六 


注意 : 

在 本 章 所 介绍 的 聊天 室 系统 中 ， 除 了 以 上 主要 文件 以 外 ， 还 有 function.asp 、 
safecode.asp、canvas.asp 以 及 font.asp 等 文件 ， 这些 文件 用 于 完成 用 户 登录 时 验证 码 的 生成 
与 显示 。 


12.3 ”设计 聊天 室 系统 


本 节 将 逐步 介绍 实现 聊天 室 系 统 的 用 户 登 录 模 块 、 用 户 注册 模块 以 及 用 户 聊天 模块 的 
方法 。 


12.3.1 用 户 登 录 模 块 


用 户 登录 模块 的 作用 是 为 进入 聊天 室 的 用 户 提供 一 个 登录 界面 ， 如 图 12-2 所 示 。 所 有 
访问 聊天 室 的 用 户 将 首先 打开 用 户 登录 页 面 (由 index.asp 文件 实现 )， 该 页 面 中 包含 的 表单 
forml 用 于 输入 登录 用 户 的 用 户 名 、 密 码 和 验证 码 ， 其 定义 语句 如 下 : 

'checkO 过 程 检查 用 户 名 、 密 码 和 验证 码 是 否 输 入 
<form name = "forml" method = "Post" action = "index.asp?act=login" onsubmit = "return CheckO"> 

在 forml 表单 中 ， 实 现 表单 功能 的 各 表单 元 素 如 下 : 

e 用 户 输入 用 户 名 的 文本 域 为 UserName。 

。 输入 密码 的 文本 域 为 UserPwd。 


“270- ASP 动态 网 站 开发 基础 教程 (第 4 版 ) 


e 输入 验证 码 的 文本 域 为 confirm 。 
e 验证 码 的 生成 是 调用 fnnction.asp 文件 中 的 GetSafeCodeO 过 程 实现 的 。 


| 


图 12-2 用 户 登录 页 面 


forml 表单 提交 后 ， 仍 将 在 index.asp 文件 中 执行 ， 处 理 表单 提交 的 数据 。index.asp 文 
件 中 处 理 表单 的 具体 代码 如 下 : 


<!--#Include File="conn.asp" --> 

<!--#Include File="md5.asp" --> 

<!--#Include File="function.asp" --> 

<% 

If Request.QueryString("act") ="login" Then "用 户 登 录 


User = Request. Form("UserName") ' 读 取 从 表单 传递 过 来 的 用 户 名 数据 
pass = Request. Form("Password") ' 读 取 从 表单 传递 过 来 的 密码 数据 
Ifuser<>"" and pass—>"" Then ' 用 户 名 和 密码 已 经 填写 


If not IsNumeric(Request.Form("confirm")) Then 
"用 函数 Numeric 判断 用 户 输入 的 验证 码 是 否 为 数字 
"如 果 用 户 填写 的 验证 码 不 是 数字 ， 则 提示 用 户 ， 并 返回 到 登录 窗口 
Response.Write "<script>alert(' 你 输入 的 验证 码 为 非 数字 ! "); 
window.location.href('index.asp"):</script>" 
Response.End 
EndIf 
'Session("SafeCode") 中 保存 程序 生成 的 验证 码 ， 比 较 生成 的 验证 码 与 用 户 输入 的 验 
证 码 是 否 相同 
If (int(Session("SafeCode"))=int(Request.Form("confirm"))) Then 
Set Is=Server.CreateObject("Adodb.RecordSet") ”' 生 成 RecordSet 对 象 
"从 数据 表 User 中 读 取 UserName 的 值 为 user 和 UserPass 的 值 为 md5(pass) 的 
记录 。md5 函数 是 一 个 加 密 函 数 ， 将 管理 员 输 入 的 密码 加 密 后 与 数据 库 中 的 值 


进行 比较 

sql="Select * from User Where UserName="&user&" and Password="&md5(pass)&"™" 
Is.open sql.conn.1,3 ' 读 取 满足 条 件 的 记录 保存 在 rs 中 

If not(rs.bof and rs.eof) Then 满足 条 件 的 记录 存在 


输入 的 用 户 名 和 密码 正确 
If md5(pass)=rs("Password") and user=rs("UserName") Then 
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"判断 登录 的 用 户 是 否 已 在 线 
sql = "Select* from online where UserName = "&user&"" 
Set OLrs = Server.CreateObject("Adodb.RecordSet") 
OLrs.open sqLconn.1.1 
' 用 户 已 在 线 
If not (OLrs.EOF and OLrs.BOF) Then 
' 给 出 提示 ， 并 返回 到 前 一 页 
Response.Write("<script>alert(' 该 用 户 已 经 存在 !"):history.back(:</script>") 
Response.End 
Else ' 用 户 不 在 线 
Session("user")=user 
'Session 变量 user 中 保存 当前 登录 的 用 户 名 
Session("chat") = "" 
'Session 变量 chat 保存 用 户 私 聊 内 容 
'Application("Gchatnum") 中 的 值 为 当前 聊天 总 记录 数 
Session("Lchatnum'") = Application("Gchatnum") 
OLrs.close ' 类 闭 RecordSet 对 象 
Set OLrs=nothing 
Ts.Close 
Setrs =nothing 
Response.Redirect "main.asp" 
"登录 成 功 ， 转 到 页 面 main.asp 
End If 
Else 
' 登 录 不 成 功 ， 提 示 用 户 ， 并 转 到 页 面 index.asp 
Response.Write "<script>alert( 登 录 失 败 ， 用 户 名 或 密码 错误 ! "); 
window.location.href('index.asp"):</script>" 


EndIf 
conn.Close 关闭 数 据 库 连接 
Set conn=nothing 
Else "满足 条 件 的 记录 不 存在 


Response.Write "<script>alert( "登录 失败 ! 用 户 名 或 密码 不 存在 ! ); 
window.location.href('index.asp"):</script>" 


EndIf 
conn.Close ' 关 闭 数据 库 连 结 
Set conn=nothing 

Else 验证 码 输入 错误 


Response.Write "<script>alert( 登 录 失败 ! 验证 码 输入 错误 ! ”); 
window.location.href('index.asp"):</script>" 
EndIf 
Else ' 用 户 名 和 密码 没有 输入 
Response.Write "<script>alert( 登 录 失 败 ! 用 户 名 和 密码 不 能 为 
空 !):_window.location.href('index.asp"):</script>" 
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EndIf 
%> 
用 户 可 以 参考 以 下 代码 ， 在 index.asp 页 面 中 利用 Check0 方 法 检查 用 户 名 、 密 码 和 验 
证 码 是 否 输入 正确 : 
<script language="VBScript"> 


function checkO "检查 用 户 名 、 密 码 和 验证 码 是 否 输入 

Ifforml.usemame.value="" Then "用 户 名 文本 域 的 值 为 空 
alert(" 用 户 名 不 能 为 空 !") ' 给 出 提示 
formlusemame focus() "将 用 户 名 文本 域 置 为 输入 焦点 
Tetum false 

End If 

If form1.password.value="" Then 密码 文本 域 的 值 为 空 
alert(" 密 码 不 能 为 空 !") 
forml .password focus0 "将 密码 文本 域 置 为 输入 的 焦点 
Tetur false 

EndIf 

If forml.confirm.value="" Then 验证 码 文本 域 的 值 为 空 
alert(" 验 证 码 不 能 为 空 ! ") 
forml.confinn focus0 ' 将 验证 码 文本 域 置 为 输入 焦点 
Teturn false 

EndIf 

TIetum true 

End Function 
</script> 


以 上 程序 代码 的 运行 过 程 如 下 所 示 。 

(1) 使 用 代码 <!--#include file = "conn.asp"--> 连 接 数 据 库 。 

(2) 使 用 代码 <!--##include file = "md5.asp"--> 包 含 文件 md5.asp， 定 义 了 md50 过 程 。 

(3) 使 用 代码 <!--#include file = " function.asp "--> 定 义 生 成 验证 码 的 函数 。 

(4) 使 用 Request 对 象 的 QueryString() 方 法 获取 act 值 ， 若 act 的 值 为 login， 则 检查 用 
户 输入 的 用 户 名 、 密 码 和 验证 码 是 否 正 确 ， 若 正确 ， 判 断 登 录用 户 是 否 已 经 在 线 ， 若 不 在 
线 ， 则 转 到 聊天 室 主 界面 admin.asp。 否 则 将 返回 用 户 登 录 界面 。 

(5) 若 act 的 值 不 是 login， 则 使 用 HTML 代码 生成 用 户 登 录 界面 ， 定 义 表单 forml。 


12.3.2 用户 注册 模块 


在 用 户 登 录 页 面 中 ， 提 供 一 个 “新 用 户 注册 ”链接 ， 访 问 者 可 以 通过 该 链接 ， 进 入 用 
户 注 册页 面 (由 register.asp 文件 实现 )， 注 册 聊 天 室 账户 。 在 用 户 注册 页 面 中 ， 用 户 需 要 十 
写 包括 注册 用 户 账号 、 密 码 、 真 实 姓 名 以 及 电子 邮箱 地 址 等 信息 。register.asp 文件 所 提供 
的 用 户 注 册 界 面 如 图 12-3(a) 所 示 , 页 面 中 包含 表单 registerform， 该 表单 用 于 输入 用 户 需 要 
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填写 的 信息 ， 其 具体 定义 代码 如 下 : 


<Form method="POST" action="register.asp?result=successful " name = registerform> 
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ee 
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六 nnn mir | EE ininini nll 7 
(a) 用 户 注册 页 面 (b) 注册 成 功 页 面 


图 12-3 用 户 注册 页 面 


在 用 户 注册 页 面 的 registerform 表单 中 ， 实 现 表单 功能 的 各 表单 元 素 如 下 : 
e 输入 用 户 账号 的 文本 域 为 UserName。 
输入 用 户 密码 的 文本 域 为 Password。 
输入 确认 密码 的 文本 域 为 Pwd。 
输入 用 户 真实 姓名 的 文本 域 为 Name。 
输入 电子 邮箱 的 文本 域 为 Email。 
当 用 户 注 册页 面 中 的 表单 被 提交 后 ， 将 在 register.asp 文件 中 处 理 表单 提交 的 数据 。 在 
register.asp 文件 中 定义 表单 处 理 过 程 (Save0 过 程 )， 首 先 判断 用 户 输入 信息 的 有 效 性 ， 然 后 
将 输入 的 信息 保存 到 数据 库 中 。SaveO 过 程 的 具体 代码 如 下 : 


<!--#Include File="conn.asp" --> 
<!--#include File ="procedure.asp"--> 
<!--#Include File="md5.asp" --> 


<% 

Sub save0 ' 定 义 过 程 
Dim UserName.UserPwd.Pwd.Name.Email "声明 变量 

UserName=TRIM(Request. Form("UserName")) ' 读 取 从 表单 传递 过 来 的 用 户 名 数 

据 ，Trim 函数 去 掉 字符 串 的 前 导 与 后 续 空格 
UserPwd=TRIM(Request.Form("UserPwd")) ' 读 取 从 表单 传递 过 来 的 密码 数据 
Pwd=TRIM(Request. Form("Pwd")) ' 读 取 从 表单 传 来 的 确认 密码 数据 
Name=TRIM(Request Form("Name")) ' 读 取 从 表单 传递 过 来 的 真实 姓名 数据 
Email=TRIM(Request. Form("Email")) ' 读 取 从 表单 传递 过 来 的 电子 邮箱 数据 
' 用 户 输入 不 完全 


If UserName="" or UserPwd="" or Pwd = "" or Name="" or Email="" Then 
"给 出 提示 ， 返 回 注册 页 面 。history.back0 〇 返回 注册 页 面 
Response.Write "<script>alert( 错 误 : 请 输入 所 有 信息 '):history.backO:</script>" 
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Response.End 
EndIf 
if UserPwd<>Pwd Then ' 两 次 输入 的 密码 不 同 
"给 出 提示 ， 并 返回 注册 页 面 
Response.Write "<script>alert( 两 次 输入 的 密码 不 相同 ! '):history -back0: </script>" 
Response.End 
EndIf 
"TsValidEmail 过 程 判 断 用 户 输入 的 的 发 件 人 的 邮件 地 址 格式 是 否 正确 
If NOT IsValidEmail(Email) Then 
' 邮 件 地 址 格式 错误 ， 则 给 出 提示 ， 并 返回 到 注册 页 面 
Response.Write "<script>alert( 错 误 : 邮件 地 址 格式 错误 !"):history.back0:</script>" 
Response.End 
EndIf 
5 判断 数据 库 中 是 否 存在 用 户 输入 的 用 户 名 
Set HVrs = Server.Createobject("adodb.recordset") 
"从 数据 库 中 查找 UserName 列 的 值 为 UserName 的 记录 
sql = "Select * from user Where UserName = "&UserName&""™" 
HVrs.Open sql.conn.1,1 
If not (HVrs.EOF and HVIrs.BOF) Then ' 存 在 满足 条 件 的 记录 
' 用 户 名 在 数据 库 中 存在 ， 则 给 出 提示 ， 并 返回 注册 页 面 
Response.Write "<script>alert(' 该 用 户 名 已 经 存在 ! 请 重新 填写 用 户 名 人 ): 
history.backO:</script>" 
Response.End 
Else ' 不 存在 满足 条 件 的 记录 
' 在 数据 库 中 插入 一 条 新 记录 
Set rs=Server.Createobject("adodb.recordset") 
sql="select UserName,.PasswordName.Email from User" 
Is.open sql.conn,1.3 


TS.AddNew 
Is("UserName")=UserName ' 用 户 登录 名 
Is("Password")=md5(UserPwd) ' 用 户 登 录 密 码 
Is("Name")=Name ' 用 户 真 实 姓名 
Is("Email")=Email ' 用 户 电子 邮箱 
rs.update ' 更 新 数据 库 
Is.close 

EndIf 

HVIs.Close 

Set HVrs = nothing 

End Sub 


用 户 在 注册 页 面 中 注册 成 功 后 ， 用 户 注册 模块 将 打开 一 个 注册 成 功 页 面 ， 提 供用 户 已 
经 成 功 注册 ， 如 图 12-3(b) 所 示 。 
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12.3.3 用户 聊天 模块 


网 络 聊天 室 的 用 户 聊天 模块 由 多 个 页 面 组 成 , 包括 聊天 室 主 页 面 、 在 线 用 户 显 示 页 面 、 
提交 聊天 内 容 页 面 、 显 示 聊 天 内 容 页 面 以 及 用 户 退 出 登录 页 面 等 。 下 面 将 分 别 介绍 这 些 页 
面 的 ASP 程序 设计 方法 。 

1. 聊天 室 主页 面 


聊天 室 主页 面 (如 图 12-4 所 示 ) 是 一 个 多 窗口 的 页 面 (由 main.asp 文件 实现 )， 该 页 面 分 
为 以 下 两 部 分 。 
。 上 半 部 分 : 窗口 的 上 面部 分 显示 聊天 室 名 称 ， 由 topmsg.asp 文件 实现 。 
ee 下 半 部 分 : 窗口 的 下 面部 分 显示 聊天 室 在 线 用 户 列表 、 聊 天 内 容 和 用 户 聊 天 发 表 ， 
由 chatroom.asp 文件 实现 ， 该 文件 也 是 一 个 多 窗口 的 文件 ， 由 以 下 3 部 分 组 成 。 
4 左 侧 : 为 在 线 用 户 列表 文件 showname.asp。 
4 右 侧 : 为 聊天 内 容 显示 文件 showmsg.asp。 
0 下 侧 : 为 聊天 内 容 提交 文件 postmsg.asp。 


下 对 xr 说: 你 好 10:34:00 
于 对 二 要 可 : 本 昌 10:29:00 
对 下 借 : 到 10c2100 


12-4 ”聊天 室 主页 面 


聊天 室 上 半 部 分 名 称 文件 topmsg.asp 的 代码 如 下 : 


<head> 

<title></title> 

</head> 

<body topmargin="0" bgcolor="#C0CO0CO"> 
<center> 

<font size="7"> 

网 络 聊天 室 

</font> 

</center> 

<a href = logout.asp target =_parent> 退 出 </a> 
</lbody> 
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聊天 室 在 线 用 户 列表 文件 Chatroom.asp 的 代码 如 下 : 


<html> 
<head> 
<meta http-equiv="Content-Type" content="text/html: charset=gb2312"> 
<title> 聊 天 室 </title> 
</head> 
<frameset rows="*" cols="150,*" frameborder="1" border="1" framespacine="0"> 
<frame border = 1 src="showname.asp?nmyself—<%=request.querystring("myself")%>" 
name="leftFrame" scrolling="yes" noresize> 
<frameset rows="*,100" frameborder="1" border="1" framespacing="0"> 
<frame border = 1 src="showmsg.asp" name="showmse" scrolling = "yes"> 
<frame border = 1 src="postmsg.asp?myself—<%=request.querystring("myself")%>&toname=<%= 
Tequest.QueryString("toname")%>" name="bottomFrame" scrolling="no" noresize> 
</frameset> 
</frameset> 
<noframes><body> 
</body></noframes> 
</html> 


在 设计 网 络 聊天 室 主 页 面 中 ， 为 了 防止 未 登录 用 户 直接 访问 该 页 面 ， 可 以 在 main.asp 
文件 开头 添加 Session("user") 是 否 为 空 的 判断 语句 ， 若 不 为 空 ， 则 将 登录 用 户 添加 到 online 
数据 表 中 ， 代 码 如 下 : 


<% 
If Session("User")—"" Then ' 用 户 登 录 
' 把 用 户 名 添加 到 在 线 名 单 中 
Set IsSx=Server.CreateObject("ADODB.RecordSet") ' 创 建 RecordSet 对 象 
' 从 数据 库 中 查询 id 为 空 的 记录 


sqlx="select * from online where id is null" 
"执行 查询 ， 将 结果 保存 在 rsx 中 


ISX.open sqlx,conn,1,3 
ITSX.addnew ' 添 加 一 条 新 记录 
Isx("onlinetime")=time(O) ' 登 录 时 间 
Isx("username")=Session("user") "用 户 名 
TSXUpdate "更 新 数据 库 
TSX.close "关闭 RecordSet 对 象 
Set rsx = nothing 

%> 

Else ' 用 户 没有 登录 


' 给 出 提示 ， 返 回 到 前 一 页 
Response.Write("<script>alert( 你 还 没有 登录 !"):history.backO:</script>") 
"终止 当前 对 ASP 文件 的 执行 ， 并 将 现 有 结果 返回 给 客户 端 
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Response.End 
EndIf 
%> 


2. 在 线 用 户 显示 页 面 
聊天 室 的 在 线 用 户 显示 页 面 (如 图 12-5) 用 于 显示 当前 在 线 的 用 户 列 表 。 在 用 户 列表 中 单 


具体 的 在 线 用 户 名 称 ， 就 可 以 向 该 用 户 发 送 聊 天 信息 。 


文件 四 ”编辑 三) 查看 WV) 收藏 夷 A) 


研 台 gx 讽 : 你 时 10:24:00 
上 对 仙 9 本 10:29:09 
上 对 介 : 0:9:00 


PE 


有 Pi 加 
re ECE rr 
图 12-5 ”在线 用 户 列表 页 面 


sss123 


在 线 用 户 的 显示 页 面 由 showname.asp 文件 实现 ， 其 具体 代码 如 下 : 


<html> 


<!-- #include file="conn.asp" --> 

<% 

' 显 示 最 新 在 线 名 单 

set rsout=Server.CreateObject("ADODB.RecordSet") "创建 RecordSet 对 象 
sqlout="select *from online where idORDER BY idDESC" 

' 从 数据 库 中 查询 所 有 记录 ， 按 照 id 降序 排列 


rsout.open sqlout.conn.1.1 "执行 查询 操作 ， 将 结果 保存 在 rsout 中 
Do While not rsout.eof "循环 显示 所 有 记录 
"建立 超级 链接 


response.write ("<a href = chatroom.asp?myself="&Session("user")&"&toname=") 
response.Write(rsout("username")) 
response. Write(" target = "include’>") 


Tresponse. Write(rsout("username")) ' 显 示 用 户 名 

response. Write("</a>") 

response. Write("<br>") "换行 

Tsout.movenext 指向 下 一 条 记录 
loop 


response. Write("<br>") 


</htm> 
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3. 提交 聊天 内 容 页 面 


聊天 室 的 聊天 内 容 提交 页 面 (如 图 12-6 所 示 ) 是 用 户 在 登录 聊天 室 后 ， 向 其 他 用 户 提交 
聊天 信息 的 页 面 ， 该 页 面 由 postmsg.asp 文件 实现 。 


EIEIO rr 
[oR re 2 


[Fr [Eo 


图 12-6 提交 聊天 内 容 页 面 


TTT | 


在 线 用 户 列表 页 面 中 包含 了 一 个 表单 forml， 用 于 让 用 户 选 择 聊天 对 象 和 输入 聊天 内 
容 ， 其 定义 语句 如 下 : 
<form action="postmsg.asp?act=addmsg&myself=_ 
<%=request.querystring("myself')%>&toname=_ 
<%=request.QueryString("toname")%>" method="post" name="form1" > 


在 表单 forml 中 ， 实 现 表 单 功能 的 各 表单 元 素 如 下 。 

e 文本 域 FromName( 只 读 型 ): 用 于 显示 当前 登录 用 户 名 。 

。 文本 域 msg: 用 于 用 户 输入 聊天 内 容 。 

e 下 例 列表 框 mame: 用 于 用 户 从 下 拉 列 表 框 中 选中 聊天 对 象 。 
定义 fomml 表单 的 具体 代码 如 下 : 


<!-- #include file="conn.asp" --> 

<html> 

<% 

<%lf request.QueryString("toname") = "" Then9%o> 
<option> 大 家 </option> 
<%Else%> 
<option><%=request.QueryString("toname")%></option> 
<% 
EndIf 
' 显 示 在 线 人 数 
set rsout=Server.CreateObject("ADODB.RecordSet") "创建 RecordSet 对 象 
sqlout="select *friom online where id ORDER BY idDESC" 
' 从 数据 库 中 查询 所 有 记录 ， 按 照 id 降序 排列 
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Isout.open sqlout.conn.1.1 ' 执 行 查询 ， 将 结果 保存 在 rsout 中 
fori=lto 50 ' 在 下 拉 框 中 最 多 显示 50 个 用 户 名 
%> 

<option><%response. Write(rsout("usemame"))%></option> 

<% 

Isout.movenext "指向 下 一 条 记录 

if rsout.EOF Then Exit For "到达 最 后 一 条 记录 则 跳出 For 循环 
next 
%> 
</select> 

</html> 


用 户 在 提交 聊天 内 容 页 面 中 选 定 聊天 对 象 并 输入 聊天 内 容 后 ， 可 以 单 击 “ 提 交 发 言 ” 
按钮 或 “ 私 聊 ” 按 钮 ， 将 内 容 提 交 。 从 上 面 提 到 的 表单 定义 语句 中 可 知 ， 提 交 的 表单 数据 
仍 将 在 postmsg.asp 文件 中 执行 。 在 该 文件 中 首先 读 取 act 的 值 , 若 act 的 值 为 addmsg 则 判 
断 用 户 单 击 的 是 “提交 发 言 ”按钮 还 是 “ 私 聊 ” 按 钮 ， 单 击 的 按钮 不 同 执行 的 操作 也 不 同 。 
若是 “提交 发 言 ”按钮 则 将 聊天 信息 保存 在 数据 库 中 ， 以 便 让 聊天 室 中 的 所 有 用 户 都 能 看 
到 ， 若 是 “ 私 聊 ” 内 容 ， 则 将 私 聊 信息 保存 在 Application 变量 中 ， 只 允许 一 部 分 参与 私 聊 
的 用 户 看 到 信息 。 有 具体 代码 如 下 : 

<% 

ac=request.QueryString("act") 

' 读 取 act 的 值 

if ac="addmsg" then 

'act 的 值 为 addmsg 

If Request.Form("hidden")—"" Then ' 私 聊 

Session("chat") ="" 

' 清 空 Session("chat") 中 的 内 容 

' 把 要 显示 的 私 聊 信息 保 存在 Application("chat") 中 

Application("chat") = "<font size = 2>"&request.Form("username")&" 悄 悄 地 对 

"&request.form("mame")&" 说 :<font color = black>"&request.form("msg")&"</font> 
"&timeO&"</font>" 


Application("chatto") = request.form("mame") "聊天 对 象 
Application("owner") = request.Form("username") "发 言 者 
Else ' 不 是 私 聊 
set rs=server.createobject("adodb.recordset") "创建 RecordSet 对 象 
sql="select * from chat" 查询 数据 库 
rs.open sqLconn.1.3 执行 查询 
Ts.addnew "添加 一 条 新 记录 
Is("FromName")=request.Form("usermame") ' 发 言 者 
Is("ToName")=request.forn("mame") ' 聊 天 对 象 


1s("chat")-request form("msg") "显示 的 私 聊 信息 
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Is("posttime")=time() "提交 时 间 

Ts-update "更 新 数据 库 

Ts.Close "关闭 RecordSet 对 象 
set rs—nothing 


' 增 加 一 条 聊天 记录 ， 将 Application("Gchatnum") 的 值 加 1 
Application("Gchatnum") = Application("Gchatnum")+1 
EndIf 
endif 
%> 


Postmsg.asp 文件 的 代码 执行 步骤 如 下 : 

(1) 使 用 代码 <!--#include file = "conn.asp"--> 连 接 数 据 库 。 

(2) 使 用 HTML 代码 生成 页 面 ， 并 从 数据 库 中 读 取 在 线 用 户 名 ,将 前 面 50 位 用 户 添加 
到 下 拉 列 表 框 中 。 

(3) 读 取 act 的 值 。 

(4) 判断 act 的 值 ， 若 act 的 值 为 addmsg， 则 判断 用 户 单 击 的 是 何 种 按钮 (“提交 发 言 ” 
或 “ 私 聊 ”)。 

(5) 若 用 户 单 击 “ 私 聊 ” 按 钮 ， 则 将 私 聊 要 显示 的 内 容 、 私 聊 的 发 言 者 和 发 言 对 象 保 
存在 Application 变量 中 。 

(6) 若 用 户 单 击 “提交 发 言 ”按钮 ， 则 将 用 户 的 聊天 内 容 、 聊 天 发 言 者 、 发 言 对 象 和 
发 言 时 间 保 存在 数据 库 中 。 

4. 显示 聊天 内 容 页 面 


聊天 内 容 显示 页 面 (如 图 12-7 所 示 ) 由 showmsg.asp 文件 实现 ， 在 该 页 面 中 ， 用 户 可 以 
显示 聊天 室 的 公共 聊天 和 私 聊 的 内 容 。 


CDTT or 


(CE rr ID 辣 IEECEC SO 辣 
ET TT 
神 收 二 天 EH| -| 因由. | OF x 入 * 国 -0 ” 


江 对 zzr 说 : 你 好 10:24:00 
对 大家 说 : 网 呵 10:23:00 
兰 对 开 说 : 网 呵 10:22:00 


于 4 
mE [EE Wm | 


12-7 显示 聊天 内 容 页 面 


聊天 内 容 显 示 页 面 的 代码 如 下 : 


<!--#include file="conn.asp"--> 
<HIML> 
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<% 
' 显 示 聊 天 内 容 
'Session("Lchatnum") 为 用 户 登录 时 聊天 总 记录 数 ，Application("Gchatnum") 为 当前 聊天 总 记 
录 数 ，Session("Lchatnum")<Application("Gchatnum") 表明 用 户 登录 之 后 ， 该 聊天 室 有 用 
户 聊天 ， 则 显示 登录 之 后 的 聊天 记录 
下 Session("Lchatnum'")<Application("Gchatnum'") Then 
start = Session("Lchatnum")+1 
for i= Application("Gchatnum'") to start step -1 
"使 用 For 语句 循环 显示 所 有 聊天 记录 
set Is=Server.CreateObject("ADODB.RecordSet") "创建 RecordSet 对 象 
TS.Open "Select * from chat Where id="&iconn.1.3 
"从 数据 库 中 查询 id 列 的 值 为 i 的 记录 ， 并 将 结果 保存 在 rs 中 
%> 
<a href = chatroom.asp?myself—<%=Session("user")%>&toname=<%=rs("FromName")%> 
target="include"><%response. Write(rs("FromName"))%></a> 对 
<a href = chatroom.asp?myself—<%=Session("user")%>&toname=<%=rs("ToName")%> 
target="include"><%response. Write(rs("ToName"))%></a> 说 : 
<font color = black> 
<% 
Tesponse. Write(rs("chat")) "聊天 内 容 
%> 
</font> 
<% 
response. Write(rs("posttime")&"<br>") "发 言 时 间 
%> 
<br> 
<% 
rs.closeO "关闭 RecordSet 对 象 
set rs=nothing 
Next 
End If 
%> 
<td> 
</tr> 
</table> 
<table height = "30%" width = "100%"> 
<tr width = "10" valign = center height = "30%" bgcolor = "#bbbbbb"> 
<td><font color = red> 私 聊 内 容 </font></td> 
</tr> 
<t> 
<td valign = top> 
<% 
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If Session("chat") <>Application("chat") Then 


'Session("chat") 中 保存 用 户 浏览 器 上 的 私 聊 内 容 ，Application("chat") 中 保存 当前 私 聊 内 容 ， 二 者 


不 相等 ， 说 明 有 新 的 私 聊 信 息 


"登录 用 户 为 私 聊 发 言 者 或 者 为 私 聊 发 言 对 象 ， 或 者 私 聊 对 象 为 所 有 人 ， 则 显示 私 聊 内 容 
If Session("user") = Application("owner") or Session("user") = Application("chatto") or 


Application("chatto") = "大 家 " Then 
Response. Write Application("chat") 
Session("chat") = Application("chat") 

EndIf 
Else 

Response. Write Session("chat") 
End If 


5. 用 户 退 出 登录 页 面 


' 显 示 私 聊 内 容 
"保存 用 户 可 以 看 到 的 私 聊 内 容 


' 不 满足 条 件 
"显示 用 户 私 聊 内 容 


用 户 在 单 击 聊天 室 主 界面 中 的 “退出 ”按钮 ， 执 行 logout.asp 文件 ， 退 出 聊天 室 登 录 


状态 。 退 出 聊天 室 的 操作 包括 以 下 内 容 。 

将 当前 登录 用 户 从 数据 库 中 删除 。 

将 Session("user") 设 置 为 空 。 

将 Session("chat") 设 置 为 空 。 

将 Session("Lchatnum") 设 置 为 0。 

将 网 页 转 到 index.asp 用 户 登录 模块 。 
Logout.asp 文件 的 代码 如 下 : 


<!--#include file = "conn.asp"--> 

<% 
set rsdell=Server.CreateObject("ADODB.RecordSet") 
' 将 当前 登录 用 户 从 在 线 用 户 数据 表 中 删除 


"创建 RecordSet 对 象 


sqldell="delete * from online where usermame="&Session("user")&"" 


rsdell.open sqldell.conn.1,3 

Session("user") ="" 

Session("chat" 

Session("Lchatnum")= 0 

Response.Redirect "index.asp" 
9%> 


执行 删除 操作 

"清除 Session 中 的 用 户 名 
清除 Session 中 的 私 聊 内 容 
"将 当前 聊天 记录 数 置 为 0 

' 页 面 转 到 登录 界面 
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12.4 习 题 


12.4.1 问答 题 


1. 如 果 关闭 了 服务 器 ， 本 章 实例 所 创建 的 聊天 室 中 的 聊天 信息 会 保留 下 来 吗 ? 
2. 在 聊天 室 中 可 以 用 数据 库 或 文本 文件 保存 聊天 信息 和 在 线 人 员 名 单 吗 ? 


12.4.2 操作 题 


1. 对 本 章 实例 所 创建 的 聊天 室 站 点 ， 进 行 以 下 修改 : 
。 在 聊天 室 中 限制 不 允许 使 用 HTML 代码 (提示 : 对 输入 文本 进行 处 理 )。 
。 在 聊天 界面 中 添加 更 多 的 说 话 颜 色 和 表情 效果 。 

2. 在 本 章 创建 的 聊天 室 示例 中 ， 用 数据 库 文件 保存 在 线 人 员 名 单 。 


第 13 章 ASP 网 站 开发 实例 一 一 网 上 论坛 


网 上 论坛 是 Intemet 中 非常 广泛 的 应 用 系统 。 几 乎 所 有 稍 具 规模 的 网 站 都 提供 自己 的 网 上 
论坛 , 在 如 今 的 网 络 中 非常 常见 。 设 计 一 个 网 上 论坛 需要 有 后 台数 据 库 的 支持 ， 本 章 将 介绍 开 
发 基于 ASP 技术 和 IIS 应 用 环境 的 网 上 论坛 的 方法 ， 该 论坛 具备 用 户 注册 、 登 录 、 查 看 留言 、 
发 送 留言 、 回 复 留言 等 功能 。 


教学 目标 
通过 本 章程 序 开发 实例 的 讲解 ， 读 者 应 掌握 制作 ASP 网 上 论坛 网 站 的 方法 。 
教学 重点 与 难点 


。 系统 功能 模块 设计 
。 数据 库 设 计 
e 创建 论坛 功能 模块 


13.1 总 体系 统 设计 


网 上 论坛 又 名 网 络 论坛 BBS， 全 称 为 Bulletin Board System( 电 子 公告 板 ) 或 者 Bulletin 
Board Service( 公 告 板 服务 )， 是 Internet 上 的 一 种 电子 信息 服务 系统 。 它 提供 一 块 公共 电子 
白板 ， 每 个 论坛 用 户 都 可 以 在 上 面 书写 ， 发 布 信息 或 提出 看 法 。BBS 是 一 种 交互 性 强 ， 内 
容 丰 富 而 即使 的 Internet 电子 信息 服务 系统 。 用 户 在 BBS 站 点 上 可 以 获得 各 种 信息 服务 、 
发 布 信息 、 进 行 讨论 、 聊 天 等 。 

创建 网 上 论坛 之 前 ， 用 户 应 对 论坛 的 总 体系 统 进行 设计 ， 包 括 制定 设计 目录 、 设 计 方 
案 以 及 设计 功能 等 。 


13.1.1 设计 目标 


本 章 的 设计 目标 是 开发 一 个 适合 小 型 企业 或 个 人 团体 使 用 的 网 上 论坛 系统 。 该 系统 建 
立 一 个 网 上 发 帖 平 台 ， 论 坛 注册 用 户 可 用 在 论坛 上 发 表 自 己 的 文章 (帖子 ) 或 浏览 其 他 用 户 
发 表 的 文章 ， 非 论坛 注册 用 户 (游客 ) 则 只 能 浏览 文章 ， 不 能 发 表 文 章 。 
网 上 论坛 系统 至 少 应 该 包括 以 下 几 个 功能 。 
e 用 户 注册 功能 : 在 论坛 上 发 布 (回复 ) 各 种 文章 (留言 ) 之 前 ， 访 问 者 必须 通过 该 功能 
注册 论坛 。 
e 用 户 登 录 功 能 : 注册 用 户 可 以 通过 该 功能 登录 论坛 网 站 。 
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。 密码 修改 功能 : 用 户 可 以 通过 该 功能 修改 论坛 的 登录 密码 。 

e 论坛 文章 显示 功能 : 该 功能 为 论坛 的 基本 功能 。 论坛 访问 者 可 以 在 进入 论坛 文章 列 
表 页 面 中 后 ， 查 看 论坛 中 注册 用 户 所 发 布 的 文章 列表 。 

。 论坛 文章 的 阅读 功能 : 论坛 的 访问 者 (包括 注册 用 户 与 游客 ) 可 以 单 击 论坛 文章 列表 
中 的 文章 名 称 ， 阅 读 论坛 中 注册 用 户 发 布 的 文章 。 

e 论坛 文章 的 回复 功能 : 论坛 注册 用 户 可 以 对 论坛 中 其 他 用 户 所 发 布 的 文章 进行 回复 。 

e 论坛 发 帖 功 能 :论坛 注册 用 户 可 以 利用 该 功能 在 论坛 中 发 布 各 种 文章 。 

e 论坛 留言 功能 : 论坛 注册 用 户 可 以 通过 该 功能 给 论坛 上 的 其 他 用 户 留言 。 

。 查看 留言 功能 : 论坛 注册 用 户 可 以 查看 其 他 用 户 给 自己 的 留言 。 

。 回复 留言 功能 : 论坛 注册 用 户 可 以 对 其 他 用 户 给 自己 的 留言 内 容 进行 回复 。 


13.1.2 ”设计 方案 


根据 网 上 论坛 系统 设计 目标 分 析 ， 确 定 系统 运行 在 Windows 系统 平台 上 ， 使 用 IS 信 
息 服 务 器 作为 Web 服务 器 ， 使 用 ASP 完成 动态 交互 功能 ， 后 台 的 数据 库 则 使 用 Access。 
论坛 的 系统 功能 结构 图 ， 如 图 13-1 所 示 。 


论坛 文章 发 布 系统 


发 
送 
贸 
介 
理 


图 13-1 论坛 系统 功能 结构 图 


13.1.3 ”设计 功能 


如 图 13-1 所 示 ， 本 章 所 介绍 的 网 上 论坛 系统 包括 以 下 3 个 功能 模块 。 
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1. 用 户 注 册 、 登 录 与 密码 修改 
网 上 论坛 网 站 首先 应 有 的 功能 就 是 用 户 管理 功能 ， 本 章 实例 所 涉及 的 用 户 管理 功能 主 
要 包括 用 户 注册 、 用 户 登 录 与 密码 修改 3 个 模块 。 现 在 大 部 分 的 网 站 可 以 与 用 户 交互 的 界 
面 上 ， 都 提供 用 户 登 录 与 注册 的 接口 。 在 用 户 登录 论坛 后 ， 才 可 以 完整 地 跟踪 用 户 行为 。 
用 户 也 只 有 在 登录 论坛 之 后 , 才 可 以 发 布 与 回复 文章 , 或 者 给 其 他 用 户 留言 。 如 图 13-2 所 
示 为 用 户 注册 与 登录 界面 。 


图 13-2 用 户 注册 与 登录 界面 


注意 : 

本 章 所 介绍 的 用 户 管理 模块 实例 较 简单 , 用 户 可 以 参考 本 书 第 11 章 所 介绍 的 实例 , 设 
计 一 个 相对 完善 的 用 户 管理 模块 。 

2. 文章 显示 、 发 布 与 内 容 回复 


网 上 论坛 的 文章 管理 模块 是 网 站 的 核心 模块 ， 本 章 实例 所 介绍 的 文章 管理 功能 包括 显 
示 论 坛 文章 、 发 布 论坛 文章 与 回复 论坛 文章 3 个 模块 。 在 论坛 网 站 的 实际 运作 时 ， 用 户 可 
以 通过 这 些 模块 ， 实 现 与 其 他 用 户 的 意见 互动 。 如 图 13-3 所 示 为 阅读 与 发 表 文章 界面 。 


ES 区 一 一 


阅读 文章 
13-3 ”阅读 与 发 表 文章 界面 


3. 信息 查看 、 发 布 与 留言 回复 
网 上 论坛 的 信息 管理 模块 主要 包括 留言 发 送 、 留 言 查 看 与 留言 回复 3 个 模块 。 信 息 管 
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理 模块 允许 论坛 用 户 之 间 互 相 发 送 站 内 短信 ， 并 且 短信 的 内 容 不 会 被 第 三 方 用 户 看 到 ， 是 
一 种 较 隐秘 的 网 站 信息 传递 方式 。 如 图 13-4 所 示 为 发 送 与 回复 留言 页 面 。 


一 志江 -EEC 

Te a Hn i A 

enn un | | | 
习 


回复 留言 


-| 


发 送 留 言 回复 留言 
图 13-4 ”发送 与 回复 留言 界面 


13.2 ”数据库 的 分 析 与 设计 


Web 应 用 跟踪 和 管理 用 户 的 状态 一 般 有 两 种 措施 : 一 种 是 利用 Session 或 Cookie 保存 
用 户 会 话 期 间 信息 ， 但 这 些 信 息 在 会 话 结束 后 将 不 再 存在 。 另 一 种 是 那些 需要 持久 保存 的 
信息 ， 如 用 户 的 注册 信息 或 论坛 文章 的 发 布 内 容 ， 则 必须 通过 数据 库 进行 存储 数据库 适 
合 存储 那些 需要 持久 保存 的 信息 ， 并 且 提 供 良好 的 方式 进行 查询 、 插 入 、 修 改 与 删除 。 这 
主要 是 SQL(Structured Query Language) 的 强大 功能 。 

现代 的 、 成 熟 的 和 广泛 占据 市 场 的 数据 库 产品 一 般 都 是 关系 数据 库 产品 。 关 系数 据 库 
产品 具有 坚实 的 理论 基础 ， 基 于 关系 演算 和 关系 模型 ， 并 且 提 供 非 面向 过 程 的 查询 语言 
SQL， 因 此 深 受 市 场 的 欢迎 。Access 数据 库 是 微软 公司 开发 的 适合 中 小 型 的 一 贯 数 据 库 产 
品 。 在 安装 Office 时 可 以 选中 安装 该 数据 库 。 本 章 所 介绍 的 网 站 论坛 网 站 选用 Access 作为 
后 台数 据 库 。 


13.2.1 数据 库 功 能 分 析 


分 析 本 章 实例 所 设计 的 网 上 论坛 网 站 的 网 站 系统 结构 特点 可 以 发 现 ， 有 以 下 3 类 信息 
需要 存储 在 数据 库 中 。 
e 注册 用 户 信息 : 内 容 包 括 用 户 姓 名 、 用 户 密码 、 电 子 邮 箱 地 址 、 微 博 主页 地 址 以 及 
用 户 备注 信息 等 。 
e 论坛 文章 信息 : 内 容 包括 文章 编号 、 发 布 日 期 、 发 表 时 间 、 发 布 文章 的 用 户 账号 、 
被 浏览 次 数 、 被 回复 次 数 、 文 章 回 复 编号 、 文 章 内 容 、 文 章 标题 等 。 
e 用 户 留言 信息 : 内 容 包 括 留言 编号 、 留 言 发 送 日 期 、 留 言 发 送 时 间 、 留 言 发 送 者 的 
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账号 、 留 言 发 送 者 的 电子 邮件 地 址 、 留 言 发 送 人 的 微 博 地 址 、 留 言 内 容 以 及 留言 接 
受 者 的 账号 等 。 
由 于 本 章 所 创建 的 网 上 论坛 只 需要 存储 文本 信息 ， 都 是 小 字段 的 问题 ， 不 会 涉及 例如 
BLOG( 图 片 、 视 频 或 音频 等 )， 而 作为 一 个 中 小 型 的 应 用 ， 数 据 量 在 万 条 左右 ， 完 全 可 以 使 
用 Access 数据 库 作为 网 站 后 台 的 支持 。 


13.2.2 数据库 结 构 设 计 


针对 论坛 的 应 用 需求 ， 在 设计 论坛 网 站 时 ， 可 以 利用 Access 数据 库 设 计 3 个 数据 表 ， 
以 分 别 对 应 存储 论坛 用 户 信息 、 文 章 信息 和 留言 信息 。 
e User 表 用 来 保存 注册 用 户 的 信息 : 该 表 包 含 UserName、UserPassword、UserEmail、 
UserHomepage 和 UserNote 等 字段 ， 如 表 13-1 所 示 。 


表 13-1 User 表 
字段 名 称 说 了 明 
UserName 用 户 姓 名 
UserPassword 用 户 密码 
UserEmail 用 户 电子 邮件 地 址 
UserHomepage 用 户 微 博 主页 地 址 
UserNote 用 户 备注 信息 


e Article 表 用 来 保存 论坛 中 的 文章 信息 : 该 表 包 含 articleid、articledate 、articletime、 
articleAuthor, articleAccessNumber、 articleFellowNumber、 articleParent, articleContent 


以 及 articleTitle 等 字段 ， 如 表 13-2 所 示 。 


表 13-2 Article 表 


字段 名 称 数据 类 型 说 了 明 
articleid 自动 编导 论坛 文章 编号 (主键 ) 
本 文章 发 布 日 其 


时 间 
articletime 文章 发 布 时 间 
articleAuthor 文章 发 布 的 用 户 账号 
articleAccessNumber 数字 文章 被 浏览 的 次 数 
articleFellowNumber 数字 文章 被 回复 的 次 数 
articleParent 数字 该 文章 是 回复 文章 ， 其 所 回复 的 文章 编号 
articleContent 备注 文章 的 内 容 
articleTitle 文本 文章 的 标题 
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e Message 表 用 来 保存 用 户 间 的 消息 信息 : 该 表 包 括 I4、messageDate、messageTime、 
messageName、 messageEmail、 messageHomepage、 messageContent、 messageToName 


等 字段 ， 如 表 13-3 所 示 。 


表 13-3 Message 表 


字段 名 称 数据 类 型 说 明 
Id 自动 编号 留言 编号 (主键 ) 
messageDate 日 期 /时 间 发 送 留 言 消息 的 日 期 
messageTime 日 期 /时 间 发 送 留 言 消息 的 时 间 
messageName 文本 留言 发 送 人 的 用 户 账号 
messageEmail 文本 留言 发 送 人 的 电子 邮箱 地 址 
messageHomepage 留言 发 送 人 的 个 人 微 博 地 址 
messageContent 留言 消息 内 容 
messageToName 留言 接收 入 的 用 户 账号 


注意 : 


用 户 可 以 参考 本 书 第 9 章 所 介绍 的 方法 ,在 Access 数据 库 中 创建 数据 库 文件 bbs.mdb， 
并 根据 表 13-1、 表 13-2 和 表 13-3 分 别 建立 数据 表 User、Article 和 Message。 


13.3 “论坛 主 界面 


论坛 主 界面 是 用 户 进入 论坛 网 站 后 首先 要 显示 的 界面 ， 通 常 显示 欢迎 信息 。 用 户 在 设 
计 网 站 论坛 主 界面 时 ， 可 以 参考 本 书 第 2 章 所 介绍 的 内 容 ， 利 用 HTML 网 页 框架 语言 设计 


ASP 网 页 效果 。 


13.3.1 设计 论坛 首页 


1. 设计 页 面 功能 
用 户 在 设计 网 上 论坛 首页 的 过 程 中 ， 首 先 应 考虑 首页 中 需要 设置 链接 与 效果 ， 以 及 首 


页 中 的 链接 与 功能 分 昂 


几 个 链接 。 
e 会 员 注册 : 
e 会 员 登 录 : 
e 游客 访问 : 
e 帮助 信息 : 
e 联系 我 们 : 


单 击 


下 
Er Hr Hr Er EH 


能 够 实现 什么 样 的 效果 。 本 章 所 介绍 的 网 上 论坛 首页 中 ， 具 备 以 下 


该 链接 将 可 以 打开 用 户 管理 模块 中 的 用 户 注册 页 面 。 
该 链接 将 可 以 打开 用 户 管理 模块 中 的 用 户 登录 页 面 。 


击 该 链接 可 以 以 游客 身份 访问 论坛 ， 进 入 游客 访问 页 面 。 
击 该 链接 可 以 打开 论坛 帮助 信息 页 面 。 
均 链 


链接 可 以 打开 论坛 信息 页 面 显示 管理 员 联 系 方式 。 
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除 此 之 外 ， 论 坛 首页 还 具有 一 个 简单 的 计数 器 功能 ， 可 以 记录 论坛 首页 被 用 户 打开 的 
次 数 。 
2. 代码 的 实现 


用 户 可 以 参考 以 下 代码 ， 实 现 论 坛 首页 的 效果 : 
<html> 
<body bgcolor=#ffffff> 
<br><br> 
<p> 
<d> 
<dd><div align=center style="font-size:XX-large"><font color="crimson"> 
<p>BBS 论坛 <p></font></div></dd> 
</d> 
<br><br> 
<p align=center style="font-size:xx-large"><font size=4> 欢 迎 访问 BBS 论坛 </font></p> 
<center> 
你 是 第 
<% 
dim visitors 
‘whichfile=server.mappath("counter/counter.txt") 
set fs=server.createobject("Scripting.FileSystemObject") 
set thisfile=fs.opentextfile(whichfile) 
Visitors=thisfile readline 
thisfile.close 
countlen=len(visitors) 
for i=] to 5-countlen 
response.write "<img src=counter/0.gif>" 
next 


for i=] to countlen 
Tresponse.write "<img src=counter/" & mid(visitors,i,1) & ".gif></img>" 
next 
Visitors=Visitors+1 
set out=fs.createtextfile(whichfile) 
out.writeline(visitors) 
out.close 
set fs=nothing 
%> 
位 访问 者 
</center> 
<hr> 
<table align=center border=0 width=630> 
<t> 
<td width=20% align=center><a hre 仁 "register.htm">[ 会 员 注 册 ]</a></td> 
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ws 


<td width=20% align=center><a href="login.htm">[ 会 员 登 录 ]</a></td> 


<td width=20% align=center><a href="visitor.htm">[ 游 客 访问 ]</a></td> 
<td width=20% align=center> [帮助 信息 ]</td> 


<td width=20% align=center> [请 你 留言 ] </td> 
</r> 
</table> 
</body> 
</html> 


将 以 上 代码 保存 为 default.asp 后 ， 运 行 该 网 页 后 得 到 的 效果 ， 如 图 13-5 所 示 。 
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程序 代码 


首页 效果 
图 13-5 设计 default.asp 论坛 首页 效果 


13.3.2 ”连接 数据 库 


连接 数据 库 指 的 是 ASP 应 用 程序 与 后 台 Access 数据 库 之 间 的 连接 。 要 连接 本 章 13.2 
节 建 立 的 数据 库 , 可 以 创建 通过 connection 对 象 与 后 台 Access 数据 库 建立 连接 的 conn.asp 文 
件 ， 具 体 代码 如 下 : 


<% 


set conn=server.createobject("adodb.connection") 


%> 


conn.open "DRIVER={Microsoft access driver (*.mdb)}:dbq="&server.mappath("bbs.mdb") 
注意 : 


用 户 在 Windows 系统 的 “记事 本 ”中 输入 以 上 代码 后 ,将 其 以 conn.asp 文件 名 保存 至 
论坛 目录 即 可 。 


13.4 用 户 管理 模块 


本 节 将 介绍 制作 网 上 论坛 的 用 户 管理 模块 的 方法 ， 包 括 制 作用 户 注册 模块 、 用 户 登 录 
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模块 以 及 注册 用 户 密码 修改 模块 。 
13.4.1 用 户 注册 页 面 


在 新 用 户 注册 程序 中 ， 要 求 系统 能 读 取 和 检查 用 户 注册 信息 并 写 入 数据 库 。 在 用 户 注 
册页 面 中 ， 应 具备 以 下 表单 内 容 ， 以 对 应 User 表 中 的 各 字段 。 

e “账号 ”文本 框 : 对 应 User 表 中 的 UserName。 

e “密码 ”文本 框 : 对 应 User 表 中 的 UserPassword。 

e “电子 邮件 ”文本 框 : 对 应 User 表 中 的 UserEmail。 

e “ 微 博 主 页 ”文本 框 : 对 应 User 表 中 的 UserHomepage。 

e “自我 简介 ”多 行文 本 框 : 对 应 User 表 中 的 UserNote。 


注意 : 
除 此 之 外 ， 用 户 注册 页 面 中 还 应 设置 一 个 “确认 密码 ”文本 框 ， 用 于 检查 “密码 ” 文 
本 框 中 输入 的 密码 是 否 正确 。 


用 户 可 以 参考 以 下 代码 ， 创 建 用 于 显示 新 用 户 注册 页 面 元 素 的 register.htm 文件 : 


<html> 

<head> 

<body bgcolor=#ffffff> 

<p align=center><font size=5> 会 员 注 册 </font></p> 

<center> 

<form action=register.asp method=post> 

<table border=0 width=450 cellpadding=0 height=221> 
<t> 
<td width=50% align=right height=18> 账 &nbsp:&nbsp: 号 :</td> 
<td width=50% height=18><input name=name style="Height:22px;width:167px">(*)</td> 
</tr> 
<tr> 
<td width=50% align=right height=18> 密 &nbsp:&nbsp: 码 :</td> 
<td width=50% height=18><input type=password name=password1 
style="Height:22px:width:167px"> 


(Ad> 
</tr> 
<tr> 
<td width=50% align=right height=18> 确 认 密码 :</td> 
<td width=50% height=18><input type=password name=password2 
style="Height:22px:width:167px"> 


("</td> 
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</tr> 

<tr> 

<td width=50% align=right height=18> 电 子 邮 件 :</td> 

<td width=50% height=18><input name=email style="Height:22px:width:167px">(*)</td> 
</> 

<tr> 

<td width=50% align=right height=18> 微 博 主页 :</td> 

<td width=50% height=18><input name=homepage style="Height:22px:width:167px">(*)</td> 
</t> 

<t> 

<td width=50% align=right height=18> 自 我 简介 :</td> 

<td width=50% height=91 rowspan=5><textarea name=note cols=24 name=s] rows=5 
style="Height:86px:;width:234px"></textarea></td> 

</t> 


</html> 


用 户 可 以 参考 以 下 代码 ， 创 建新 用 户 注册 页 面 的 处 理 程序 register.asp 文件 : 


<%(@language=vbscript%> 
<!--#include file=conn.asp--> 
<html> 
<head> 
</head> 
<body bgcolor=#c1f7d8> 
<center> 
<% 
dim strmame,strpasswod]1.strpassword2.strnote,stremail,strhomepage,strpassword 


' 读 取 用 户 输入 数据 
stmame=request.form("Name") 
strpasswordl=request.form("password1") 
strpassword2=request.form("password2") 
stremail=request.form("email") 
strthomepage=request.form("homepage") 
strmote=request.form("note") 


' 检 查 输 入 内 容 是 否 有 为 空 的 数据 
让 stmame="" then 
response.write "账号 不 能 为 空 <p></p>" 
9%> 
<a hre 作 javascripthistory.backO> 上 一 页 </a> 
<% 


response.end 
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endif 


fstrpassword1="" then 
response.write "密码 不 能 为 空 <p></p>" 
%> 
<a href=javascript:history.bakc0> 上 一 页 </a> 
<% 
Response.end 
endif 


' 检 查 两 个 密码 值 是 否 相同 

if strpassword1=strpassword2 then 
strpassword=strpassword1 

else 
response.write "确认 两 次 密码 一 致 <br><br>" 

%> 

<a href=javascript:history.back0> 上 一 页 </a> 

<% 

response.end 

endif 


呆 开 数据 库 和 数据 库 的 值 进行 比 对 

strsql="select * 位 om user Where usermame=" & stmame & "™" 
Set rs=serVer.createobject("adodb.recordset") 

Is.open strsql.conn,1,3 


if not (rs.eof and rs.eof) then 
response.write "你 所 用 的 账号 已 经 存在 ， 请 修改 账号 <br><br>" 

%> 
<a href=javascript:history.backO> 上 一 页 </a> 
<% 

response.end 

endif 

Is.close 

set rs=nothing 


' 把 值 添加 入 数据 库 
strtable="user" 
Set rs=server.createobject("adodb.recordset") 
rs.open strtable.conn.1.3 
Is.addnew 
Is("username")=strmame 
rs("userpassword")=strpassword1 
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Is("useremail")=stremail 
rs("userhomepage")=strhomepage 
Is("usernote")=strmote 

Is.update 

Is.close 

set rs=—nothing 


' 返 回 

response.write "祝贺 你 ， 你 已 经 申请 成 功 " 
%> 
<br><a hre 全 "http://zhangshihua"> 返 回 </a> 
</body> 
</html> 


13.4.2 ”用户 登录 页 面 


用 户 登 录 页 面 与 用 户 注 册页 面 一 样 ， 出 现在 论坛 主 界面 的 链接 中 。 已 注册 会 员 填 写 用 
户 名 、 密 码 登 录 论 坛 时 ， 网 页 程序 将 检查 用 户 输入 的 用 户 名 和 密码 信息 是 否 正 确 。 因 此 ， 
用 户 登录 页 面 中 ， 至 少 应 具备 以 下 两 个 表单 元 素 。 

e “上 账号 ”文本 框 : 对 应 User 表 中 的 UserName。 

e “密码 ”文本 框 : 对 应 User 表 中 的 UserPassword。 

用 户 可 以 参考 以 下 代码 ， 创 建 用 于 显示 用 户 登 录 页 面 元 素 的 login.htm 文件 : 


<html> 
<head> 
<title></title> 
</head> 
<body bgcolor=#ffffff> 
<p align=center><font size=5> 会 员 登 录 </font></p> 
<form action=login.asp method=post> 
<table border=0 width=500 cellpadding=0> 
<tr> 
<td width=40% align=right height=40> 账 号 :<br></td> 
<td width=50%><input name=name style="height:22px:width:167px"><br></td> 
</tr> 
<tr> 
<td width=40% align=right height=40> 密 码 :<br></td> 
<td width=50%><input type=password name=password 
style="height:22px:width:167px"><br></td> 
</tr> 
<tr> 
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<td width=40% align=right height=40><br></td> 
<td width=30% align=left>&nbsp:&nbsp:<input id=submitl name=submitl type=submit value= 确 
定 > &nbsp: 
<input id=resetl name=resetl type=reset value= 重 填 ></td> 
</> 
</table> 
</form> 
</center> 
<center>&nbsp:</center> 
</body> 
</html> 


用 户 可 以 参考 以 下 代码 ， 建 立会 员 登 录 页 面 的 处 理 程序 login.asp 文件 : 


<%@language=vbscript%> 
<%response.buffer=true%> 
<html> 
<head> 
<% 
set conn=server.createobject("adodb.connection") 
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}:DBQ="&Server.MapPath("BBS.MDB") 
%> 
</head> 
<body bgcolor=#c1f7d8> 
<center> 


<% 
set rstemp=server.createobject("adodb.recordset") 
dim stmame.strpassword.sql 
stmame=request.form("Name") 
strpassword=request.form("password") 
sql="select * from user Where username=" & stmame & "" 
TSstemp.open sqlconn.1.3 
让 stmame="" then response.write "账号 不 能 为 空 <p></p>" 
%> 
<a href=javascript:history.back0> 上 一 页 </a> 
<% 
response.end 
endif 
站 strpassword="" then response.write "密码 不 能 为 空 <zp></p>" 
%> 
<a hre 作 javascripthistory.backO> 上 一 页 </a> 
<% 


response.end 
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endif 


if rstemp.RecordCount=] then 
ifrstemp("userpassword")= strpassword then 
session("name")=strname 
Tesponse redirect "user.htm" 
else 
%> 
<a href=javascript:history.back0> 密 码 错 误 请 重新 输入 </a> 
<% 
endif 
else 
%> 
<a href=javascript:history.back0> 账 号 错误 请 重新 输入 </a> 
<% 
response.end 
endif 
rstemp.close 
set rstemp=nothing 
%> 
</body> 
</html> 


13.4.3 修改 登录 密码 


用 户 成 功 登录 论坛 后 ， 可 以 通过 密码 修改 页 面 , 修改 自己 的 论坛 登录 密码 。 该 页 面 中 ， 
应 具备 “原始 密码 ”、“ 新 密码 ”以 及 “确认 新 密码 ”等 儿 个 表单 元 素 ， 如 图 13-6(a) 所 示 。 
用 户 可 以 参考 以 下 代码 创建 用 于 显示 会 员 修 改 密码 页 面 元 素 的 changepassword.htm 文件 。 


<html> 
<head> 
<title></title> 
</head> 
<body bgcolor=#c1f7d8> 
<p align=center><font size=5> 修 改 密码 </font></p> 
<form action=changepassword.asp method=post> 
<center> 
<table align=center> 
<t> 
<td> 原 始 密码 :</td> 
<td><input type=password name=oldpassword></td> 
</tr> 
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<tr> 

<td> 新 密 码 :</td> 

<td><input type=password name=newpassWord></td> 
</tr> 
<tr> 

<td> 确 认 密码 :</td> 

<td><input type=password name=confirmpassword></td> 
</t> 
<tr> 

<td><br></td> 

<td><br><input name=submitl type=submit value= 确 定 > &nbsp: 

<input name=resetl type=reset value= 清 除 > 


(a) 修改 密码 页 面 (b) changepassword.htm 代码 
图 13-6 密码 修改 


用 户 可 以 参考 以 下 代码 , 创建 会 员 修改 密码 页 面 的 处 理 程序 changepassword.asp 文件 : 


<!--#include file=conn.asp--> 

<html> 

<body bgcolor=#c1f7d8> 

<center> 

<% 

dim stroldpassword.stmewpassword.strconfirmpassword 
dim strwhere.strsql,strdsn.strchangesql 
stroldpassword=request.form("oldpassword") 
strmewpassword=request.form("newpassword") 
strconfirmpassword=request.form("confirmpassword") 
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fstroldpassword="" or stmewpassword="" then 
Tesponse.write "请 输入 密码 " 
Tesponse.end 
endif 
if strmmewpassword<>strconfirmpassword then 
Tesponse.write "两 次 密码 不 相同 " 
Tesponse.end 
end 让 
strwhere="where usermame=" & session("name") & " and userpassword="" & stroldpassword & "" 
strsql="select * from user " & strwhere 
strchangesql="update user set userpassword ="" & stmewpassword & " " & strwhere 
Set rs=server.createobject("adodb.recordset") 
TS.0pen strsql,conn,1,3 
%> 
<br> 
<% 
if rs.recordcount=1 then 
set changers=server.createobject("adodb.recordset") 
changers.open strchangesql,.conn,1,3 
set changers=nothing 
response.write "密码 已 成 功 修改 " 
else 
response.write "密码 输入 错误 ， 无 法 修改 密码 " 
endif 
TS.close 
set rs=nothing 
%> 
</body> 
</html> 


13.5 文章 管理 模块 


本 节 将 介绍 制作 网 上 论坛 文章 管理 模块 的 方法 ， 包 括 制 作 显示 论坛 发 帖 列表 模块 、 阅 
读 与 回复 文章 模块 以 及 论坛 发 帖 功 能 模块 。 


13.5.1 显示 论坛 发 帖 列 表 


显示 文章 列表 页 面 应 能 够 从 数据 库 中 读 取 文 章 相关 信息 , 并 将 它们 以 表格 形式 列 出 如 图 
13-7(a) 所 示 。 用 户 可 以 参考 以 下 代码 创建 显示 论坛 文章 列表 页 面 的 showlist.asp 文件 : 
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<!--#include file=conn.asp--> 
<html> 
<head> 
<title> 浏 览 标题 </title> 
</head> 
<body bgcolor=#ffffff> 
<p align=center><font size=5> 浏 览 标 题 </font></p> 
<% 
dim strdsn.strselectsql 
dim intarticleid 
ifrequest.querystring("ID" 
intArticleid=0 
endif 
Set rs=serVver.createobject("adodb.recordset") 
strselectsql="select * 位 om article where articleparent=" & intarticleid 
TS.0pen strselectsql.conn,3,1 
Is.pagesize=10 
nextpage=request.form("nextpage") 
if nextpage="" then 
session("abspage")=1 
else 
ifnextpage=" 上 一 页 " then 
session("abspage")=session("abspage")-1 
elseif nextpage=" 下 一 页 " then 
session("abspage")=session("abspage")+1 
elseif nextpage=" 第 一 页 " then 
session("abspage")=1 
elseif nextpage=" 最 后 一 页 " then 
session("abspage")=rs.pagecount 
endif 
Is.absolutepage=session("abspage") 
endif 


if rs.recordcount>0 then 
i=0 
response.write "<table border=] width=100%/>" 
response.write "<tr><td colspan=5 align=center>" 
if intarticleid=0 then 


response.write "这 是 第 " & session("abspage") & "页 " & "&nbsp: 共 有 " 及 


ITSIecordcount & "个 主题 " 
else 
responsew.write "共有 " & rs.recordcount & "个 跟 帖 " 
endif 
response.write "</tr>" 
9%> 
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<tr> 
<td align=center width=19%> 时 间 </td> 
<td align=center width=55%> 主 题 </td> 
<td align=center width=10%> 作 者 </td> 
<td align=center width=8%> 被 读 </td> 
<td align=center width=8%> 跟 帖 </td> 
</t> 
<% 
do while not rs.eof and i<10 
%> 
<u> 
<td align=center><%=rs("articledate")%>&nbsp:<%=rs("articletime")%></td> 
<td><a href=readarticle.asp?id=<%=rs("articleid")%>><%=rs("articletitle")%></a></td> 
<%if session("name")="" then9%o> 
<td align=center><%=rs("articleauthor")%></td> 
<%else%> 
<td align=center><a href=newmessage.asp?toname=<%=rs("articleauthor")% 
>><%=rs("articleauthor")%></td> 
<%end i®6> 
<td align=center><%=rs("articleaccessnumber")%></td> 
<td align=center><%=rs("articlefellownumber")%></td> 
</tr> 
<%rs.movenext 
i=itl 
loop 
response.write "</table></center>" 
response.write "<center><form action showlist.asp method=post>" 
ifrs.pagecount>1 then 
Tesponse.write "<input type=submit value= 上 一 页 name=nextpage>"&"" 
endif 
if(session("abspage"))<rs.pagecount then 
response.write "<input type=submit value= 下 一 页 name=nextpage>" 
endif 
Tesponse.WIite "</form>" 
endif 
Is.close 
set rs=nothing 
%> 
</tr> 
</table> 
</body> 
</html> 
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(a) 论坛 发 帖 列 表 页 面 (b) showlist.asp 文件 代码 
图 13-7 查看 论坛 发 帖 


注意 : 

在 论坛 发 帖 列 表 页 面 中 显示 的 文章 列表 名 称 与 数据 库 中 Article 表 内 的 articleTitle 字段 
相对 应 ， 显 示 的 文章 作者 与 Article 表 中 的 articleAuthor 字段 相对 应 ， 显 示 的 被 读 次 数 与 
articleAccessNumber 字段 相对 应 ， 显 示 的 跟 帖 次 数 与 articleFellowNumber 字段 相对 应 。 


13.5.2 ”阅读 与 回复 文章 


在 网 上 论坛 的 阅读 和 回复 文章 页 面 ， 将 显示 Article 数据 表 读 取 指 定 文章 的 具体 内 容 ， 
并 能 够 在 页 面 下 方 提 供 对 该 文章 的 回复 文本 框 。 用 户 可 以 参考 以 下 代码 ， 创 建 显 示 论 坛 文 
章 内 容 页 面 的 readarticle.asp 文件 : 


<%@ Language=VBScript %> 

<!--#include file=conn.asp--> 

<HIML> 

<HEAD> 

<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> 
</HEAD> 

<BODY bgcolor=#c1f7d8> 

<p align=center><font size=5> 阅 读 文章 </font></p> 


<% 

' 显 示 文章 内 容 

dim strDsn.strSelectSql 

set rs=server.createobject("adodb.recordset") 

strSelectSql="select * from article where articleid=" & Request.QueryString("id") 
TS.Open strselectsql.conn.3.1 

%> 
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<table border=] width=100%> 
<t> 
<td align=center width=25%> 时 间 </td> 
<td align=center width=49%> 主 题 </td> 
<td align=center width=10%> 作 者 </td> 
<td align=center width=8%> 被 读 </td> 
<td align=center width=8%> 跟 帖 </td> 
</t> 
<t> 
<td align=center><%=rs("articledate")%>&nbsp:<%=rs("articletime")%></td> 
<td align=center><%=rs("articletitle")%> 
<td align=center><%=rs("articleauthor")%> 
<td align=center><%=rs("articleaccessnumber")%> 
<td align=center><%=rs("articlefellownumber")%> 
</tr> 
</table> 
<br> 
文章 内 容 : 
<br><br> 
<%=rs("articlecontent")%> 
<% 
TS.close 
set rs=nothing 
%> 
<% 
路 改 被 读 次 数 
strchangesql="update article set articleaccessnumber=articleaccessnumber+l Where articleid=" & 
Request.QueryString("id") 
set changers=server.createobject("adodb.recordset") 
changers.open strChangesqlconn.1.3 
set changers=nothing 
%> 
<% 
' 显 示 跟 帖 文章 
strselectsql="select * from article where articleparent=" & request.querystring("id") 
Set rs=server.createobject("adodb.recordset") 
Is.open strselectsql.conn.3.1 
Ts.pagesize=10 
nextpage=request.form("nextpage") 
if nextpage="" then 
session("abspage")=1 
else 
fnextpage=" 上 一 页 " then 
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session("abspage")=session("abspage")-1 

elseif nextpage=" 下 一 页 " then 
session("abspage")=session("abspage")+1 

elseif nextpage=" 第 一 页 " then 
session("abspage")=1 

elseif nextpage=" 最 后 一 页 " then 
session("abspage")=rs.pagecount 

endif 

Is.absolutepage=session("abspage") 

endif 

if rs.recordcount>0 then 
i=0 
response.write "<table border=1 width=100%/>" 
response.write "<tr><td colspan=5 align=center>" 
response.write "共有 " & rs.Recordcount & "个 跟 帖 " 


%> 
<tI> 
<td align=center width=25%> 时 间 </td> 
<td align=center width=49%> 主 题 </td> 
<td align=center width=10%> 作 者 </td> 
<td align=center width=8%> 被 读 </td> 
<td align=center width=8%> 跟 帖 </td> 
</t> 
<% 
do while not rs.eof and i<10 
%> 
<tr> 


<td align=center><%=rs("articledate")%>&nbsp:<%=rs("articletime")%></td> 
<td align=center><%=rs("articletitle")%> 
<td align=center><%=rs("articleauthor")%> 
<td align=center><%=rs("articleaccessnumber")%> 
<td align=center><%=rs("articlefellownumber")%> 
</tr> 
<% rs.movenext 
i=itl 
loop 
response.write "</table></center>" 
Tesponse.write "<center><form action showlist.asp method=post>" 
ifrs.pagecount>1 then 
if (session("abspage"))>1 then 
response.write "<input type=submit value= 上 一 页 name=nextpage>" 
endif 
if (session("abspage"))<rs.pagecount then 


第 13 章 ASP 网 站 开发 实例 一 一 网 上 论坛 “305 


response.write "<input type=submit value= 下 一 页 name=nextpage>" 
endif 
endif 
Tesponse.write "</form>" 
endif 
Is.close 
set Ts=nothing 
%> 
</t> 
</table> 
<hr> 
<form action=publisharticle.asp method=post> 
<input type=hidden name=articleid value=<%=Request.QueryString("id")%>> 
<table border=0> 
<t> 
<td> 主 题 :</td> 
<td><input type=tex name=title size=61></td> 
</tr> 
<tr> 
<cd colspan=2> 内 容 :</td> 
</tr> 
<tr> 
<td colspan=2><textarea id=textareal name=content 
style="Height: 100px:width:500px"></textarea></td> 
</t> 
</table> 
<center><br> 
<input id=submitl name=submit type=submit value= 跟 帖 文章 > 
<input id=submitl name=submit type=submit value= 发 表 文章 > 
<input id=-resetl name=resetl type=reset value= 重 写 文章 > 
</center> 
</form> 
</BODY> 
</HIML> 


注意 : 

在 阅读 与 回复 文章 页 面 中 ， 显 示 的 时 间 与 数据 库 中 Article 表 内 的 articletime 字段 相对 
应 ; 显示 的 主题 内 容 与 articleTitle 字段 相对 应 ; 显示 的 作者 与 articleAuthor 字段 相对 应 ; 
显示 的 被 读 次 数 与 articleAccessNumber 字段 相对 应 ; 显示 的 跟 帖 次 数 与 
articleFellowNumber 字段 相互 对 应 ; 显示 的 文章 内 容 与 articleContent 字段 相对 应 。 
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13.5.3 ”论坛 发 帖 功能 


论坛 的 发 帖 功 能 模块 允许 注册 用 户 应 能 够 在 论坛 中 发 表 文 章 , 并 将 其 提交 给 ASP 服务 
器 。 用 户 可 以 参考 以 下 代码 ， 建 立 显示 发 表 文章 页 面 元 素 的 publisharticle htm 文件 : 


<html> 
<head> 
<title></title> 
</head> 
<body bgcolor=#c1f7d8> 
<p align=center><font size=5> 发 表 文章 </font></p> 
<form action=publisharticle.asp method=post> 
<center> 
<table border=0> 
<t> 
<td> 主 题 :</td> 
<td><input type=text name=title size=61></td> 
</t> 
<t> 
<td colspan=2> 内 容 :</td> 
</t> 
<t> 
<td colspan=2><textarea name=content style="height: 100px:width:500px"></textarea></td> 
</tr> 
</table> 
<center><br> 
<input name=submit type=submit value= 发 表 文章 > 
<input type=reset value= 重 写 文章 > 
</center> 
</form> 
</body> 
</html> 


用 


ey 


”可 以 参考 以 下 代码 ， 建 立 发 表 文章 的 处 理 程序 publisharticle.asp 文件 : 


<%@language=vbscript%%> 
<!--#include file=conn.asp--> 


<html> 

<head> 

</head> 

<body bgcolor=#c1f7d8> 
<center> 
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<% 
dim strArticletitle.strarticlecontent.strarticleauthor.strarticleid 
dim strtable.strdsn 


"检查 用 户 是 否 登 录 

if session("name")="" then 
response.write "请 你 首先 登录 ， 才 能 发 表 高 见 " 
Tesponse.end 

endif 


获取 要 发 表 的 信息 
strarticletitle=request.form("title") 
strarticlecontent=request.form("content") 
strarticleauthor=session("name") 
strarticleid=Request.Form("articleid") 
strtable="article" 


"检查 主题 是 否 为 空 

if trim(strarticletitle)="" then 
response.write "主题 不 能 为 空 " 
response.end 

endif 


' 检 查 内 容 是 否 为 空 

if trim(strarticlecontent)="" then 
strarticletitle=strarticletitle & "(无 内 容 )" 

endif 


"打开 数据 库 
Set Ts=SeIVer.CIeateobject("adodb.recordset") 
Ts.open strtable.conn,3,2 


"把 发 表 内 容 添加 入 数据 库 

Ts.addnew 

寺 request.form("submit")=" 发 表 文章 " then 
rs("articletitle")=strarticletitle 
rs("articleauthor")=strarticleauthor 
rs("articlecontent")=strarticlecontent 
Tesponse.write "文章 发 表 成 功 " 

elseif request.form("submit")=" 跟 帖 文 章 " then 
rs("articletitle")=strarticletitle 
rs("articleauthor")=strarticleauthor 
rs("articlecontent")=strarticlecontent 


a ASP 动态 网 站 开发 基础 教程 (第 4 版 ) 


Is("articleparent")=strarticleid 
endif 
rs.update 
Is.close 
set Ts=nothing 
%> 


<% 

路 改 跟 帖 文章 数 

计 request.form("submit")=" 跟 帖 文 章 " then 
strchangesql="update article set articlefellownumber=articlefellownumber+1 where articleid=" 
& strarticleid 
Set connnn=server.createobject("adodb.connection") 
connnn.open conn 
set rs=connnn.execute(strchangesql) 
set rs=nothing 
conn.close 
set connnn=nothing 
Tesponse.write "文章 成 功 跟 帖 " 

endif 

%> 

</body> 

</html> 


13.6 留言 管理 模块 


下 面 将 介绍 制作 网 上 论坛 留言 管理 模块 的 方法 ， 包 括 制作 论坛 留言 功能 模块 、 查 看 留 
言 模块 以 及 回复 留言 模块 。 


13.6.1 论坛 留言 功能 


论坛 留言 功能 主要 用 于 浏览 者 为 文章 的 作者 发 送 留言 信息 。 用 户 可 以 参考 以 下 代码 ， 
建立 显示 发 送 留 言 页 面 元 素 的 newmessage.asp 文件 : 


<html> 

<head> 

</head> 

<body bgcolor=#c1f7d8> 

<p align=center><font size=5> 发 送 留 言 </font></p> 
<form action=sendmessage.asp method=post> 
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<table align=center border=]1 cellpadding=1 cellspacing=1 width=300> 
<tr> 
<tdheight=23>&nbsp: 发 给 :</td> 
<td height=23><input type=hidden size=20 name=toname 
value=<%=request.querystring("toname")%>> 
<%=request.querystring("toname")%></td> 
</tr> 
<tr> 
<td height=23>&nbsp: 姓 名 :</td> 
<td height=23><input type=hidden name=name 
value=<%=session("name")%>><%=session("name")%></td> 
</t> 
<t> 
<td height=19>&nbsp: 留 言 :</td> 
<td height=19>&nbsp:;</td> 
</tr> 
<tr> 
<td colspan=2> &nbsp:<textarea id=textareal name=content rows=6 cols=35></textarea> 
<p align=center> 
<input id=submitl name=submitl type=submit value= 发 送 留言 > 
<input id=resetl name=resetl type=reset value= 重 新 填写 > 
</td> 
</t> 
</table> 
</form> 
</body> 
</html> 


用 户 可 以 参考 以 下 代码 ， 创 建 发 送 留言 的 处 理 程序 sendmessage.asp 文件 : 


<% @language=vbscript%> 

<!--#include file=conn.asp--> 

<html> 

<head> 

</head> 

<body bgcolor=#c1f7d8> 

<center> 

<% 

dim strmame.strcontent.strtable.strdsn 

strname=request.form("name") 

strcontent=request.form("content") 

strtoname=request.form("toname") 

if trim(strmmame)="" or trim(strcontent)="" then 
response.write "<br><br> 姓 名 及 内 容 不 能 为 空 " 
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%> 
<br><br><a href=javascript:history.bakc0> 上 一 页 </a><br> 
<% 
response.end 
endif 
strtable="message" 
set rs=server.createobject("adodb.recordset") 
TS.0pen strtable.conn.1.3 
Is.addnew 
TSs("messagename")=stmame 
rs("messagecontent")=strcontent 
rs("messagetoname")=strtoname 
Is.update 
TS.close 
set rs=nothing 
response.write "祝贺 你 ， 你 的 信息 成 功 地 发 给 " & strtoname 
9%> 
</center> 
</body> 
</html> 


注意 : 
在 论坛 留言 页 面 中 显示 的 “发 给 ”内 容 与 数据 库 中 message 表 内 的 messageToName 字 
段 相对 应 ， 姓 名 内 容 与 messageName 字段 相对 应 ， 留 言 内 容 与 messageContent 字段 对 应 。 


13.6.2 ”查看 留言 功能 


注册 用 户 登 录 网 站 后 ， 可 以 通过 查看 留言 页 面 和 查看 其 他 用 户 发 送 给 自己 的 留言 信 
息 (如 图 13-8(a) 所 示 )。 用 户 可 以 参考 以 下 代码 (如 图 13-8(b) 所 示 ), 创建 显示 查看 留言 页 面 
的 readmessage.asp 文件 : 


<!--#include file=conn.asp--> 
<% 

response.buffer=true 
response.clear 
response.expires=0 

%> 

<html> 

<head> 

</head> 

<body bgcolor=#c1f7d8> 

<p align=center><font size=5> 查 看 留言 </font></p> 
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<% 
if not request.querystring("id")="" then 
strdeletesql="delete from message Where id=" &request.querystring("id") 
Set rsdelete=server.createobject("adodb.recordset") 
rsdelete.open strdeletesql.conn.1.3 
set rsdelete=nothing 
Tesponse.redirect "readmessage.asp" 
endif 
9%> 
<% 
"检查 用 户 
dim strsql,strdsn 
strsql="select * from message Where messagetoname="" & session("name") & ""™" 
Set rs=serVer.createobject("adodb.recordset") 
TS.0pen strsql.conn.1,3 
response.write "<center> 你 共有 " & rs.recordcount & "条 留言 
%> 
<% 
"输出 留言 信息 
dimi 
Tesponse.WIite "<table border=1 width=100%/><tr>" 
for 二 1 to rs.recordcount 
Tesponse.write "<td width=27%/>" & rs("messagedate")&" "区 IsS 
("messagetime") & "</td>" 
response.write "<td width=18%/>" & rs("messagename") & "</td>" 
response.write "<td width=20%/>" & rs("messageemail") & "</td>" 
Tresponse.write "<td width=20%/>" & rs("messagehomepage") & "</td>" 
' 等 待 响应 用 户 的 需求 
response.write "<td width=15%/><a href=return.asp?toname=" & rs("messagename") 
response.write "> 回复 </a>"&"” " 
response.write "<a href=readmessage.asp?id=" & rs("id") & "> 删除 
</a></td></tr>" 
输出 信息 
response.write "<tr><td colspan=5>" & rs("messagecontent") & "</td></tr>" 
' 结 束 
Is.movenext 
next 
response.write "</table>" 
Is.close 
set rs=nothing 
%> 
</body> 
</html> 
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13.6.3 回复 留言 功能 


网 上 论坛 的 回复 留言 功能 模块 ， 允 许 用 户 在 发 到 留言 信息 后 ， 通 过 回复 留言 页 面 ， 回 
复 留言 。 用 户 可 以 参考 以 下 代码 ， 创 建 显示 回复 留言 页 面 的 return.asp 文件 : 


<html> 

<head> 

<title></title> 

</head> 

<body bgcolor=#c1f7d8> 

<p align=center><font size=5> 回 复 留言 </font></p> 


<form action=sendmessage.asp method=post> 
<table align=center border=]1 cellpadding=1l cellspacing=1 width=300> 
<t> 
<td height=23>&nbsp; 回复 :</td> 
<td height=23><input type=hidden size=20 name=toname 
value=<%=request.querystring("toname")%>> 
<%=request.querystring("toname")%></td> 
</tr> 
<t> 
<td height=23>&nbsp: 姓 名 :</td> 
<td height=23><input type=hidden name=name 
value=<%=session("name")%>><%=session("name")%></td> 
</u> 
<t> 
<td height=19>&nbsp: 留 言 :</td> 
<td height=19>&nbsp;</td> 
</tr> 
<t> 
<td colspan=2> &nbsp;<textarea name=content rows=6 cols=35></textarea> 
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<p align=center> 
<input type=submit value= 发 送 留 言 > 
<input type=reset value= 重 新 填写 ></td> 
</tr> 

</table> 

</form> 

</body> 

</htnl> 


13.7 设计 论坛 框架 


框架 结构 页 面 ， 可 以 定义 显示 页 面 上 下 两 层 框架 结构 ， 上 层 框架 显示 系统 的 各 项 主要 
功能 ， 下 层 框架 主要 显示 具体 的 文章 内 容 ， 如 图 13-9 所 示 。 


一 


My gy 


图 13-9 网 页 框架 


用 户 可 以 参考 以 下 代码 建立 定义 框架 结构 页 面 元 素 的 user.htm 文件 : 


<html> 
<head> 
<title>BBS 论坛 </title> 
</head> 
<frameset frameborder=0 border=0 framespacing=0 rows=100,*> 
<frame src="top.asp?register=]1" name=menu scrolling=no marginwidth=0 maginheight=0> 
<frame src=showlist.asp name=main> 
<noframes> 
<p>This page uses frames.but your browser doesn't support them.</p> 
body> 
</noframes> 
</frameset> 
</html> 


用 户 可 以 参考 以 下 代码 建立 框架 结构 的 处 理 程序 main.asp 文件 : 


“314。 
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<html> 
<head> 
<title> 
</title> 
</head> 
<frameset frameborder=0 border=0 framespacine=0 frameborder=0 rows="100.*"> 
<%if request.querystring("register")=0 then9%o> 
<frame src="top.asp?register=0" name="menu" scrolling="no" marginwidth=0 magingeight=0> 
<%else%> 
<frame src="top.asp?register=1" name="menu" scrolling="no" marginwidth=0 magingeight=0> 
<%end ipo> 
<frame src=bottom.htm name=main> 
<noframes> 
<p>This page uses frames,but your bowser doesn't support them.</p> 
</body> 
</noframes> 
</frameset> 
</html> 


用 户 可 以 参考 以 下 代码 建立 框架 结构 顶部 帧 的 top.asp 文件 : 


<%@ Language=VBScript %> 
<HIML> 
<HEAD> 
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> 
</HEAD> 
<BODY bgcolor=#c1f7d8> 
<br> 
<base target=main> 
<table border=1 width=100%> 
<tr> 
<td width=15% align=center> 
<%Response. Write Session("name'") %> 
</td> 
<td width=17% align=center><a href=changepassword.htm> 修 改 密码 </a> 
</td> 
<td width=17% align=center><a href=readmessage.asp> 查 看 留言 </a> 
</td> 
<td width=17% align=center><a href=showlist.asp> 浏 览 标题 </a> 
</td> 
<td width=17% align=center><a hre 合 publisharticle .htm> 发 表 文 章 </a> 
</td> 
<td width=17% align=center><a hre 伍 "http://localhost/" target=_parent> 返 回 主页 </a> 
</td> 
</tr> 
<tr> 
<td colspan=6 align=center> 欢 迎 你 的 光临 </td> 
</tr> 
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13.8 ”游客 访问 功能 


未 进行 会 员 登录 的 用 户 称 为 游客 ， 他 们 访问 网 站 时 看 到 的 页 面 将 与 会 员 看 到 的 页 面 有 
所 不 同 ， 如 图 13-10 所 示 。 
[3 “3 3 
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图 13-10 ”网 页 框架 


用 户 可 以 参考 以 下 代码 建立 显示 游客 访问 页 面 元 素 的 visitor.htm 文件 : 


<html> 

<head> 

<title>BBS 论坛 </title> 

</head> 

<frameset fameborder=0 boder=0 framespacing=0 framborder=0 rows="100,*"> 
<frame src="visitortop.asp" name=header target=main scrolling=no marginwidth=0 

marginheight=0> 

<frame src=showlist.asp name=main> 

<noframes> 

<p>This page uses frames.but your browser doesn't support them.</p> 

</body> 

</noframes> 

</frameset> 

</html> 


用 户 可 以 参考 以 下 代码 建立 游客 访问 的 处 理 程序 的 visitortop.asp 文件 : 
<html> 
<body bgcolor=#c1f7d8> 
<% 
session("name")="" 
%> 
<br><table border=] width=100%> 
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<tr> 
<td width=15% align=center> 游 客 </td> 

<td width=17% align=center><a href-registerhtm target=main> 会 员 注 册 </a></td> 

<td width=17% align=center><a hre 全 login htm target=_parent> 会 员 登 录 </a></td> 

<td width=17% align=center><a href=showlist.asp target=main> 浏 览 标题 </a></td> 

<td width=17% align=center><a hre 全 leavemessage htm target=main> 请 你 留言 </a></td> 
<td width=17% align=center><a hre 人 ~"//localhost" target=_parent> 返 回 主页 </a></td> 
</tr> 

<r><td colspan=6 align=center> 欢 迎 光临 </td> 

</tr></table></body> 

</html> 


13.9 习 题 


13.9.1 问答 题 


1. 在 论坛 中 ， 除 了 可 以 利用 URL 后 的 查询 字符 串 传递 栏目 编号 和 页 码 ， 还 有 什么 别 
的 方法 吗 ? 
2. 如 果 关 闭 本 章 实例 所 创建 的 网 上 论坛 , 论坛 中 的 文章 和 留言 内 容 会 被 保存 下 来 吗 ? 


13.9.2 ”操作 题 


1. 以 本 章 实例 创建 的 网 上 论坛 为 基础 ， 对 论坛 网 站 进行 以 下 修改 : 
e 添加 论坛 管理 模块 ， 论 坛 管理 员 可 以 在 线 添加 和 删除 文章 。 

加 用 户 管理 模块 ， 可 以 在 线 删 除 用 户 。 

2. 为 本 章 实例 创建 的 留言 管理 模块 添加 一 个 删除 留言 的 功能 。 


